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1.0 ABSTRACT 
THIS DIAGNOSTIC IS DIVIDED INTO FOUR BASIC SECTIONS: 
1. A CHECK OF THE CONSOLE TERMINAL INTERFACE LOGIC 
2. A CHECK OF THE PRINTING CHARACTERISTICS AND CONTROL LOGIC 


0 

1 

2 

b) 

4 

5 

° 

8 3. AN ECHO PORTION DESIGNED TO CHECK THE KEYBOARD AND TO AID IN 
- THE DIAGNOSIS OF TERMINAL PROBLEMS. 
1 
2 
3 
4 
5 
6 
7 


4. A CHECK OF THE VARIOUS LA36 OPTIONS. 
PATTERNS USED BY THE PRINTING TESTS WERE CHOSEN FOR EASE OF VISUAL 


VERIFICATION. THE ECHO TESTS WERE DESIGNED FOR MAXIMUM FLEXIBILITY, 
WITH TEST 24 ALLOWING ANY DESIRED PATTERN TO BE USED. 


2.0 REQUIREMENTS 


| 
2.1 EQUIPMENT 
THE DIAGNOSTIC IS WRITTEN TO RUN ON ALL MODELS OF THE PDP=11 COMPUTER 
WITH EITHER DH11 OR ODJ11 MULTIPLEXER. UP TO 16 MULTIPLEXERS + 256 
TERMINALS ARE DRIVEN. THE DIAGNOSTIC IS SET TO TEST THE TERMINALS AT 
300 BAUD. TO CHANGE ANY PARAMETERS FOR THE DH11 INTERFACE REFER TO 
THE DH11 PARAMETER TABLE IN THE LISTING. 
2.2 STORAGE 
THE DIAGNOSTIC PROGRAM USES ALL CF 4K OF MEMORY WITH EXCEPTION OF THE 
AREA USED BY THE ABSOLUTE LOADER. 
2.5 PRELIMINARY PROGRAMS 
ANY APPLICABLE PDP=-11 DIAGNOSTICS SHOULD BE RUN ON THE PROCESSOR. IF 
ANY ERRORS ARE ENCOUNTERED DURING THE INTERFACE CHECK, REFER TO THE 
APPROPRIATE INTERFACE DIAGNOSTIC FOR FURTHER HELP IN LOCATING THE 
PROBLEM IF NEEDED. 
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3.0 ‘LOADING PROCEDURE & INITIALIZATION 


LOAD THE LA36 DIAGNCSTIC PROGRAM TAPE FOLLOWING NORMAL PROCEDURES. 
BEFORE STARTING THE PROGRAM, REFER TO THE EXISTING LINE TABLE (ELTAB) 
AND CLEAR THE PROPER BITS IN THE TABLE TO INDICATE WHICH TERMINALS ARE 
TO BE TESTED. A_ DETAILED DESCRIPTION IS CONTAINED IN THE PROGRAM 
LISTING. ALSO, REFER TO THE DESCRIPTION OF THE ROUTINE ‘‘DLY''. TIME 
DELAYS USED BY THE PROGRAM ARE A FUNCTION OF THE CPU MODEL AND MEMORY 
TYPE AND SHOULD BE SET UP BEFORE RUNNING THE DIAGNOSTIC. THE ROUTINE 
1S PRESET FOR A PDP-11/40 WITH CORE MEMORY. 


IF A HARDWARE SWITCH REGISTER DOES NOT EXIST, THE PROGRAM WILL USE THE 

CONTENTS OF LOCATION 176 AS THE VALUE OF THE SWITCHES. THE PROGRAM 

WILL PRINT OUT THE PRESENT CONTENTS OF THE SOFTWARE SWITCH REGISTER 

WHEN THE PROGRAM IS STARTED. IT WILL THEN ASK FOR THE NEW CONTENTS TO 

+ eg oe SOFTWARE SWITCH REGISTER. TYPE CARRIAGE RETURN TO 
NISH INPUT. 


4.0 STARTING PROCEDURE 
4.1 STARTING ADDRESSES 


EXECUTE WITH DH11 MULTIPLEXER 
EXECUTE WITH DJ11 MULTIPLEXER 


200(8) 
204 (8) 


4.1.1 EXECUTE WITH DH11 MULTIPLEXER 


A. REFER TO SECTION 3.0 AND MAKE SURE THE PROPER BITS IN THE 
ELTAB TABLE INDICATING WHAT TERMINALS ARE TO BE TESTED HAVE 
BEEN CLEARED AND THE CORRECT DELAY COUNT FOR THE CPU AND 
MEMORY TYPE IN USE HAS BEEN SET IN TIMER. 


B. gel REGISTER = 200(8) AND PRESS THE LOAD ADDRESS 
W 


C. SET THE SWITCH REGISTER BITS 7-0 EQUAL TO THE PAPER WIDTH IN 
TERMS OF THE NUMBER OF COLUMNS (OCTAL). REFER TO SECTION 


° Ae 


D. SET SWITCH 8 UP IF IT IS DESIRED TO SELECT A SPECIFIC TEST 
RATHER THAN BEGIN THE NORMAL PRINTING TEST SEQUENCE. 
OTHERWISE, LEAVE SWITCH 8 DOWN. 


E. PRESS THE START SWITCH. IF BIT 8 WERE ZERC WHEN STARTING THE 
NUMBER OF DH11°S UNDER TEST WILL BE PRINTED ON ALL EXISTING 
TERMINALS AND THE PRINTER TESTS ARE EXECUTED SEQUENTIALLY. 


SEQ 0005 


eT 
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1 F. IF BIT 8 WERE 1 WHEN STARTING, THE NUMBER OF DHI1'S UNDER 
2 TEST WILL BE INDICATED AND THE MESSAGE ‘’SELECT TEST NUMBER"' 
3 WILL BE PRINTED ON ALL EXISTING TERMINALS. THE PROGRAM WILL 
4 THEN BE WAITING FOR A TEST SELECTION VIA ANY TERMINAL 
5 KEYBOARD (IF SWITCH 15 1S DOWN), REFER TO SECTION 5.2 
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4.1.2 EXECUTE WITH DJ11 MULTIPLEXER 


A. SAME INSTRUCTIONS AS 4.1.1 EXCEPT THAT THE STARTING ADDRESS 
IN B IS 204 AND THE FIRST MESSAGE PRINTED WILL BE THE NUMBER 
OF DJ11°S UNDER TEST. 


5.0 OPERATING PROCEDURE 


THE PROGRAM 1S GENERALLY CONTROLLED FRGM A MULTIPLEXER TERMINAL, BUT A 

FEW SWITCH REGISTER CONTROLS ARE AVAILABLE. THE PRINTER TEST WILL 

OUTPUT TO ALL TERMINALS OR TO THE ONE UNDER TEST AS A FUNCTION OF SR 

BIT 13. ECHO TESTS WILL REFERENCE ONLY THE TERMINAL SELECTING THE 

gel e 1 TERMINALS DEPENDING ON THE SPECIFIC TEST AND THE SETTING 
H s 
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5.1 SWITCH REGISTER CONTROL 
THE VARIOUS SWITCHES AND THEIR FUNCTIONS ARE LISTED BELOW. SWITCHES 


MORIMIPIRS 
WW 
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241 MAY BE CHANGED AND SET AS DESIRED EXCEPT AS NOTED IN THE SPECIFIC 
242 SWITCH DESCRIPTIONS. REFER TO THE DETAILED SWITCH DESCRIPTIONS FOR 
243 FURTHER, MORE COMPLETE INFORMATION. 

4 
245 
246 SWITCH NUMBER DESCRIPTION 

4 
248 15 1(UP) = HALT AT END OF TEST 

249 O(DOWN) = CONTINUE TEST SEQUENCE 

13 1 (UP) DRIVE ONLY SELECTED TERMINAL 


O(DOWN) = DRIVE ALL TERMINALS 


8 1(UP) = SELECT TEST (AT START-UP ONLY) 
OCDOWN) = START NORMAL TEST SEQUENCE 


7-0 NUMBER OF COLUMNS AT START-UP 
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262 5.1.1 SWITCH 15 
264 WITH SWITCH 15 IN THE UP POSITION, THE PROGRAM WILL HALT AT THE END OF 


265 THE CURRENT TEST. REPLACING SWITCH 15 TO THE DOWN POSITION AND 
266 PRESSING CONTINUE WILL CONTINUE THE NORMAL TEST OPERATION. 


270 5.1.2 SWITCH 13 


PLACING SWITCH 15 IN THE DOWN POSITION WILL CAUSE THE DRIVING OF ALL 
TERMINALS. IF SWITCH 135 IS UP, ONLY THE TERMINAL UNDER TEST IS 


DRIVEN. 
NOTE 


279 SWITCH 15 CAN ONLY BE CHANGED WHEN THE 
280 PROGRAM IS WAITING FOR A TEST SELECTION. 


MMM PRoPQK ro 
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286 5.1.3 SWITCH 8 (AT START-UP ONLY) 


288 TO SELECT A SPECIFIC TEST RATHER THAN START THE PRINTING TEST 
289 SEQUENCE, PLACE SWITCH 8 UP BEFORE STARTING THE DIAGNOSTIC. 
290 OTHERWISE, LEAVE SWITCH 8 DOWN TO RUN THE NORMAL TEST SEQUENCE. THIS 
291 SWITCH IS ONLY EFFECTIVE AT START-UP OF THE PROGRAM. 


295 5.1.4 SWITCHES 7 TO 0 (AT START-UP ONLY) 


297 AT START-UP ONLY, SWITCHES 7 TO 0 ARE USED TO SET THE DESIRED MAXIMUM 
298 NUMBER OF COLUMNS THE DIAGNOSTIC. 1S TO TEST. IF THE NUMBER SET IS 
299 GREATER THAN 152(10) OR LESS THAN 30(10), THE PROGRAM WILL DEFAULT TO 
500 152(10). THE VALUE SET MUST BE IN OCTAL FORM, 
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5.2 KEYBOARD CONTROL 


THE PROGRAM WILL ALWAYS BE UNDER KEYBOARD CONTROL. CONTROL FROM THE 
SWITCH REGISTER DURING PROGRAM EXECUTION IS ONLY POSSIBLE WITH SWITCHS 
13 AND 15 AS STATED ABOVE. 


TYPING THE “‘RUBOUT’ (DEL) KEY ON ANY TERMINAL KEYBOARD WILL TERMINATE 
THE TEST IMMEDIATELY. AFTER TERMINATION OF THE TEST THE FOLLOWING 
MESSAGE WILL BE TYPED: 

“SELECT TEST # 


AT THIS TIME, TYPE THE DESIRED TEST NUMBER FOLLOWED BY ANY ONE OF THE 
FOLLOWING CONTROL CHARACTERS: 


- (PERIOD) = RUN THE SELECTED TEST ONCE AND RETURN FOR ANOTHER 
TEST SELECTION. 

L = LOOP ON THE SELECTED TEST UNTIL A ‘'RUBOUT'’ IS 
TYPED. 

S = START THE TEST SEQUENCE WITH THE SELECTED TEST. 


CONTINUE TO LOOP ON THE PRINTING TEST SEQUENCE 
UNTIL A "’RUBOUT’’ IS TYPED. 


THE L OR S MAY BE EITHER UPPER OF LOWER CASE, BUT THE TEST NUMBER MUST 
ALWAYS BE A 2 DIGIT OCTAL NUMBER. FOR ALL ECHO TESTS, THE ‘'L'’ AND ‘'S"' 
WILL ONLY RUN THE TEST ONCE (THE SAME AS IF TYPING A PERIOD). FOR ALL 
OPTION TESTS, THE ‘'S'’ WILL ONLY RUN THE TEST ONCE (THE SAME AS IF 
TYPING A PERIOD), HOWEVER, TYPING AN ‘'L'’ WILL CAUSE THE PROGRAM TO 
LOOP ON THE SELECTED TEST. IF AN ERROR IS DETECTED IN THE TEST 
SELECTION (ILLEGAL TEST NUMBER OR CONTROL CHARACTER) A QUESTION MARK 
1S PRINTED AND THE MESSAGE WILL BE REPEATED. 


5.35 “G FUNCTION 


THE PROGRAM WILL SENSE “G COMMANDS WHEN STARTED AT LOCATION 200 OR 
204. CONSOLE SWITCH REGISTER VALUES WILL BE PRINTED ON THE TTY AT 
START UP TIME AND THE NEW VALUE ENTERED BY OPERATOR. 10 CHANGE A 
VALUE, TYPE “*G. AT THE END OF A TEST THE NEW VALUE CAN BE ENTERED. 
“U ALLOWS INCORRECT DATA TO BE DELETED AND A NEW ENTRY STARTED. ALL 
INPUTS ARE TERMINATED BY CARRIAGE RETURN. 
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6.0 TEST DESCRIPTIONS 
6.1 PRINTING TESTS 


THESE TESTS ARE DESIGNED AS A TEST OF THE PRINTING MECHANISM AND THE 
ASSOCIATED CONTROL LOGIC. AT THE BEGINNING OF EACH TEST, THE TEST 
NUMBER WILL BE PRINTED INDICATING WHICH TEST IS BEING EXECUTED AND, IF 
THE TEST 1S A FUNCTION OF THE NUMBER OF COLUMNS, THE NUMBER OF COLUMNS 
BEING TESTED WILL BE INDICATED. A DETAILED DESCRIPTION AND SAMPLE 
PATTERNS FOR EACH PRINTING TEST FOLLOWS: 


6.1.1 TEST 0 - DATA PATH JEST 


THIS TEST IS USED TO TEST THE DATA LINES TO AND THROUGH THE INTERFACE 
AND 10 THE TERMINAL. AN ALTERNATING BIT PATTERN IS SENT WHICH WILL 
PRINT ALTERNATING **S AND U'S IN A CHECKERBOARD PATTERN TO THE MAXIMUM 
COLUMN WIDTH. THE STARTING CHARACTER FOR EACH LINE IS ALTERNATED AND 
A TOTAL OF FOUR LINES ARE PRINTED. 


WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC LINE FEED 
AFTER EVERY RECEIVED CARRIAGE RETURN, THERE WILL BE A BLANK LINE 
BETWEEN EACH PRINTED LINE. 


EXAMPLE : 


RUE eU Ur Ur UeUeU rere eUeury 
Url te Ueber UeUeUe Ue eU erreur 
UU UU eee UU UU ele er eU 
Urb UeUeUe Ue UeUeUrUrUeUeUeueyr 


6.1.2 TEST 1 = PRINTABLE CHARACTER TEST 


THIS TEST PRODUCES A CHECK OF ALL 94(10) PRINTABLE 
CHARACTERS. THE CHARACTERS ARE PRINTED IN GROUPS OF THREE 
WITH THREE GROUPS PER LINE, SEPARATED BY THREE SPACES 
BETWEEN GROUPS. THE FIRST COLUMN WILL CONTAIN ALL ASCII 
CODES FROM 040 TO 077. COLUMN TWO WILL CONTAIN ALL ASCII 
CODES FROM 100 TO 137 = PRIMARILY THE CAPITAL LETTER SET. 
THE LAST COLUMN WILL CONTAIN ALL ASCII CODES FROM 140 TO 
176 - PRIMARILY THE SMALL LETTER SET. 


WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC 
LINE FEED AFTER EVERY RECEIVED CARRIAGE RETURN, THERE WILL 
BE A BLANK LINE BETWEEN EACH PRINTED LINE. 


SEQ 0010 | 
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406 EXAMPLE: 


408 see 
409 ee AAA AAA 
410 ==" BBB BBB 
411 aaa CCC CCC 
412 $$$ DDD DDD 
413 ZaR0CtC<CéEEESCOté‘éE‘é*éE 
414 &&& FFF FFF 
415 skew GGG GGG 
416 ((( HHH HHH 
417 ))) 111 111 
418 «tt JJJ JJJ 
419 +++ KKK KKK 
420 eee eee 
421 --- MMM MMM 
422 i“ NNN NNN 
423 /// 000 000 
424 000 PPP PPP 
425 111 @QQ aaa 
426 222 RRR RRR 
427 555 - $88. $$$ 
428 444 TTT TTT 
429 555 uuu yuu 
430 666 VVV VVV 
431 777 Wl Ww Aelia 
432 888 XXX XXX 
433 999 YYY YYY 
434 o3: Liz: 22 
435 3-5: CCC 
436 €<¢ = YX 
437 s== JJ] 
438 >>> 
439 72? 
440 
44) 
442 | 
re 6.1.35 TEST 2 - NON-PRINTABLE CHARACTER TEST 
d 3 
445 THIS TEST CHECKS ALL NON-PRINTABLE CHARACTERS THAT HAVE NO CONTROL 
446 FUNCTION IN THE LA56 TERMINAL OR THE LA36 OPTIONS (SUCH AS CR, LF, BS, 
447 & BEL). FIRST THE ASCII CODE WILL BE PRINTED FOLLOWED BY THE MNEMONIC 
448 AFTER A FEW SEPARATING SPACES. FOLLOWING THE MNEMONIC, THE ACTUAL 
449 CONTROL CHARACTER WILL BE SENT THREE TIMES AND NOTHING SHOULD HAPPEN 
450 AT THE PRINTER. THIS PATTERN IS REPEATED, THREE TIMES ON A LINE, 
rit UNTIL ALL OF THE NON-PRINTING CHARACTERS HAVE BEEN TESTED. 
4 
453 WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC LINE FEED 
454 AFTER EVERY RECEIVED CARRIAGE RETURN, THERE WILL BE A BLANK LINE 
at BETWEEN EACH PRINTED LINE. 
456 
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461 EXAMPLE: 


473 6.1.4 TEST 3 - CARRIAGE RETURN TEST 


475 THIS TEST CHECKS THE CARRIAGE RETURN FROM ALL EVEN NUMBERED COLUMNS 
476 AND THE SPACING OF THE SOLENOID HEAD FROM THE LEFT MARGIN. IT IS ALSO 
477 A GOOD CHECK FOR PROPER OPERATION OF THE POSITION DECODER. 


479 THE TEST PRINTS A FULL LINE OF ALTERNATING 0°S AND SPACES, STARTING 
480 WITH A Q. AT THE END OF THE LINE THE PRINT HEAD IS RETURNED TO THE 
48) LEFT MARGIN WITH A CARRIAGE RETURN. THE SPACES ARE THEN FILLED IN BY 
482 SPACING THE PRINT HEAD OUT FROM THE LEFT MARGIN TO THE FIRST SPACE, 
483 PRINTING AN ‘’X"’, AND EXECUTING A CARRIAGE RETURN. THIS PATTERN IS 
484 REPEATED UNTIL THE LINE IS COMPLETED. CHECK TO SEE THAT ALL X'S ARE 
485 IN THE MIDDLE OF THE SPACE BETWEEN THE TWO ZEROES ON EITHER SIDE OF 


486 IT. 

489 EXAMPLE: 

49) OXOXOXOXOXOXOXOXOXOXOXOXOXOXOX 

494 WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC LINE FEED 
495 AFTER EVERY RECEIVED CARRIAGE RETURN, THIS TEST WILL PRINT A LINE OF 


496 O'S AND SPACES, THEN PRINT A DIAGINAL LINE OF X'S. TO CORRECTLY CHECK 
497 THE ENCODER, THE AUTO LINE FEED OPTION SHOULD BE DISABLED. 


500 EXAMPLE: 
502 “> 0000000 
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6.1.5 TEST 4 - MULTIPLE LINE FEED TEST 


THIS TEST CHECKS THE LINE FEED CAPABILITY OF THE PRINTER BY SENDING 
VARIOUS GROUPS OF LINE FEEDS INTERSPACED WITH REFERENCE LINES. THE 
NUMBER PRINTED AS THE REFERENCE LINE INDICATES THE NUMBER OF LINE 
FEEDS THAT FOLLOW. THE FIRST AND LAST LINES ALSO CONTAIN A STRING OF 
DASHES AS REFERENCE POINTS FOR MEASURING, THE TOTAL DISTANCE IS 63(10) 
LINES BETWEEN THE TWO DASHED LINES. 


WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC LINE FEED 
AFTER EVERY CARRIAGE RETURN, THE NUMBER PRINTED WILL INDICATE ONE LESS 


THAN THE NUMBER OF LINE FEEDS (THE NUMBER OF BLANK LINES) THAT FOLLOW. 
THE TOTAL DISTANCE BETWEEN THE TWO DASHED LINES WILL THEN BE 69 LINES. 


EXAMPLE: 


oar apeeae 


SEQ 0015 
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6.1.6 TEST 5 - SINGLE LINE FEED TEST 


THIS TEST IS DESIGNED TO CHECK THE TIMING OF SINGLE LINE FEEDS AND THE 
CAPABILITY OF DOING LINE FEEDS IN ALL COLUMNS. TWO REFERENCE LINES 
ARE USED BY THIS TEST (AND TEST 6) WHICH ALSO CAN BE USED 10 EASILY 
CHECK THE NUMBER OF COLUMNS THE PRINTER IS PRINTING. 


THE FIRST REFERENCE LINE CONTAINS 130(10) ZEROES FOLLOWED BY TwO 2'S 
IF TESTING 132(10) COLUMNS. IF LESS THAN 132 COLUMNS, THE LINE 
WILL CONTAIN O°S FOR TWO LESS THAN THE MAXIMUM NUMBER OF COLUMNS 
FOLLOWED BY THE TWO 2°S. THIS REFERENCE LINE IS A QUICK CHECK 
FOR 132(10) COLUMNS IF TESTING THE FULL 132(10) COLUMNS. THE SECOND 
REFERENCE LINE PRINTS A STRING OF NUMBERS ( 1 TO 9 & O ) REPEATED TO 
THE MAXIMUM COLUMN. THIS LINE, AGAIN, CAN BE USED AS A QUICK CHECK OF 
THE NUMBER OF COLUMNS. 


THE LINE FEED TEST IS ACCOMPLISHED BY: PRINTING THE FIRST REFERENCE 
LINE OF 0°S AND TWO 2'S; THEN EITHER SENDING 60(10) 3'S, IF 
TESTING 132(10) COLUMNS, OR WAITING 1.8 SECONDS FOR AN LCV, IF TESTING 
LESS THAN 132(10) COLUMNS. IF TESTING 132(10) COLUMNS, NOTHING 
SHOULD HAPPEN, EXCEPT FOR AN LCV, AT THE END OF THE LINE. THE 3°S 
SHOULD BE LOST AND NEVER PRINTED. AFTER THE LCV, WITH THE PRINT HEAD 
AT THE EXTREME RIGHT, A CARRIAGE RETURN - LINE FEED WILL BE SENT 
FOLLOWED BY REPEATED BACKSLASHES ‘'\'' AND LINEFEEDS TO PRINT A DIAGONAL 
LINE DOWN THE PAPER. WHEN A BACKSLASH IS PRINTED IN THE MAXIMUM 
COLUMN, A CARRIAGE RETURN WILL BE SENT IMMEDIATELY AFTER THE LINE FEED 
AND THE SECOND REFERENCE LINE OF SEQUENTIAL NUMBERS WILL BE PRINTED. 
AFTER COMPLETING THE LINE, A CARRIAGE RETURN - LINE FEED WILL BE SENT 
AND THE PROGRAM WILL WAIT ONE SECOND FOR THE CARRIAGE RETURN FUNCTION 
TO COMPLETE. AFTER THE DELAY, THE REFERENCE LINE WILL BE REPEATED, 
THE LAST LINE BEING GUARANTEED TO BE CORRECT. ANY TIMING PROBLEMS 
DURING THE LINE FEEDS WILL SHOW AS MISS PRINTS OR MISSING CHARACTERS 
DURING THE FIRST 16(10) CHARACTERS OF THE MIDDLE REFERENCE LINE. 
ALSO, ANY PAPER FEED PROBLEMS WILL CAUSE MISS-ALIGNMENT OF THE SLASHES 
FORMING THE DIAGONAL LINE. 


SEQ 0014 © 
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EXAMPLE: 
eater 


\ 
45678901 2345678901224567890 


23 
23456789012345678901234567890 


WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC LINE 
PLACE A CARRIAGE RETURN IS EXECUTED. 


FEED 
AFTER EVERY RECEIVED CARRIAGE RETURN, THERE WILL BE A BLANK LINE EVERY 


SEQ 0015 


ES Oe — EE A 


EEE eeenenas 
~ . ~. 
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EXAMPLE: 


0000000022 


1234567890 
1254567890 


6.1.7 TEST 6 - BACKSPACE TEST 


THIS TEST 1S DESIGNED TO TEST THE PRINT TIMING AS IN TEST 5 AS WELL AS 
THE BACKWARD AND FORWARD MOVEMENT OF THE PRINT SOLENOID HEAD. 


THE TEST CONSISTS OF THE SAME FIRST REFERENCE LINE AS IN TEST 5 THEN 
A CARRIAGE RETURN-LINE FEED. A FULL LINE IS THEN PRINTED USING THE 
FOLLOWING PATTERN: 


FORWARD SLASH ‘°'/"’ 
BACKSPACE © 
BACK SLASH 7 


THIS PATTERN PRODUCES A LINE OF ALL X*S. THE TWO SLASHES SHOULD CROSS 
EXACTLY AT THE MIDDLE, PRODUCING THE X CHARACTER. WHEN THE LINE IS 
COMPLETED A CARRIAGE RETURN-LINE FEED -I1S SENT AND THE LAST TwO 
REFERENCE LINES ARE PRINTED AS IN TEST 5. ANY TIMING PROBLEMS WILL 
SHOW IN THE FIRST 16(10) CHARACTERS OF THE MIDDLE REFERENCE LINE; 
AGAIN AS IN TEST 5. 


WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC LINE FEED 
AFTER EVERY RECEIVED CARRIAGE RETURN, THERE WILL BE A BLANK LINE 
BETWEEN EACH PRINTED LINE. 


EXAMPLE: 


000000000000000000000000000022 
TOO 0000000000 00000000000000000% 
123456789012345678901 234567890 
123456789012345678901234567890 


SEQ 0016 


LS  esss—‘“—s—s—sS 


ee 
MACY11 30A(1052) 03-AUG-79 09:23 PAGE 17 


CZLADDO LA36 DH11/DJ11 DIAG 


CZLADD.P11 03-AUG-79 09:18 


712 


NNN NNN 
SS ee ee ee 
O@O~O Ww 


PAGE 16 


6.1.8 TEST 7 - OVERPRINT TEST 


THIS TEST 1S DESIGNED TO CHECK THE SPACING AND REPEATABLE PRINTING 
CHARACTERISTICS OF THE PRINTER. THREE ROWS OF CHARACTERS ARE EACH 
OVERPRINTED TWO TIMES. THE ROWS CONSIST OF THE FOLLOWING CHARACTERS 
ALTERNATED ACROSS THE LINE: 


ROW 1 M-SP 
ROW 2 SP=+ 
ROW 3 &-SP 


THE RESULTING PATTERN WILL BE A CHECKERBOARD PATTERN AND THE 
pees CHARACTERS SHOULD BE ALIGNED PROPERLY WITH THE INITIAL 
H 


EXAMPLE: 


we MMMM * ae os sh ak af we a s M 
++ + + 


WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC LINE FEED 
AFTER EVERY RECEIVED CARRIAGE RETURN, THE LINES WILL NOT BE 
OVERPRINTED. THERE WILL BE THREE LINES OF EACH CHARACTER WITH A BLANK 
LINE BETWEEN EACH GROUP OF CHARACTERS. THE CHARACTERS IN EACH GROUP 
SHOULD BE IN THE SAME COLUMNS. 


EXAMPLE: 


SEQ 0017 


NE 
St ett 


er re 
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744 6.1.9 TEST 10 - PRINTING FREQUENCY SWEEP TEST 


746 THIS TEST PRINTS THE CHARACTER “‘H"' REPEATEDLY, 30(10) CHARACTERS PER 
747 LINE FOR FOUR LINES. DURING THE FIRST TWO LINES, THE TIME INTERVAL 
748 BETWEEN CHARACTERS IS INCREASED FROM 50(10) MILLISECONDS 10 1.8 
749 SECONDS USING THE FOLLOWING FORMULA TO CREATE A LOGRITHMIC INCREASE: 


751 NEW DELAY = OLD DELAY + OLD DELAY/16 + OLD DELAY/128 


753 THE LAST TWO LINES DO JUST THE REVERSE. THE TIME INTERVAL BETWEEN 
754 CHARACTERS IS DECREASED FROM 1.8 SECONDS TO 30(10) MILLISECONDS 
755 USING THE FOLLOWING FORMULA TO AGAIN CREATE A LOGRITHMIC DECREASE: 


757 NEW DELAY = OLD DELAY - OLD DELAY/16 = OLD DELAY/128 


759 LOOK FOR POSSIBLE MISS-ALIGNMENT OF THE CHARACTERS OR SPACES BETWEEN 
760 CHARACTERS AS AN INDICATION OF TIMING PROBLEMS. 


762 WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC LINE FEED 
765 AFTER EVERY RECEIVED CARRIAGE RETURN, THERE WILL BE A BLANK LINE 
764 BETWEEN EACH PRINTED LINE. 


767 EXAMPLE: 


769 HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
770 HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 
771 HHHHHHHHHHHHHHHHHHHHHHAHHHHHHH 
772 HHHHHHHHHHHHWHHHHHHHHHHHHHHHHH 


776 6.1.10 TEST 11 = RIBBON FEED TEST 


778 THIS TEST CHECKS THE RIBBON FEED MECHANISM BY PRINTING A SINGLE COLUMN 
779 OF 24 LINES OF X'S DOWN THE LEFT HAND MARGIN OF THE PAGE. VISUALLY 
780 eer FOR PROPER OPERATION OF THE RIBBON FEED MECHANISM DURING THIS 


783 WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC LINE FEED 
784 AFTER EVERY RECEIVED CARRIAGE RETURN, THERE WILL BE A BLANK LINE 
785 BETWEEN EACH PRINTED LINE. 


788 EXAMPLE: 


~~ 
oO 
ww 

<< KK OK OK OK OO 


Bee ee 
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6.1.11 TEST 12 - PRINTER BELL TEST 


THIS TEST CHECKS THE PRINTER BELL BUFFER TO INSURE THAT EIGHT BELLS 
ARE DISTINCTLY HEARD, EVEN WHEN SENT AT THE MAXIMUM TRANSFER RATE. 
THE PROGRAM SENDS 8 BELL CODES AT THE MAXIMUM RATE TO THE PRINTER 
THEN WAITS 2.5 SECONDS TO ALLOW THE OPERATOR TO HEAR THE BELLS. 


6.1.12 TEST 17 = LIFE TEST 


THIS TEST RUNS CONTINUOUSLY AND IS RUN AS AN INDIVIDUAL, SPECIAL TEST, 
IT 1S NOT PART OF THE STANDARD PRINTING TEST SEQUENCE. 


THIS TEST PRINTS 2 LINES OF EACH PRINTABLE CHARACTER AND THEN REPEATS 
CONTINUOUSLY. THE SECOND LINE OF EACH CHARACTER IS OVERPRINTED 4 
TIMES TO CONSERVE PAPER. AT THE END OF EACH COMPLETE PASS THROUGH THE 
CHARACTER SET A MESSAGE IS PRINTED INDICATING THE NUMBER OF PASSES 
EXECUTED. IF ANY CHARACTER (EXCEPT ‘'RUBOUT'') IS TYPED ON THE KEYBOARD 
DURING THIS TEST, THE PATTERN WILL CHANGE AND RESTART WITH THE TYPED 
CHARACTER. THIS WILL ONLY HAPPEN IF KEYBOARD CONTROL IS IN USE. 


EXAMPLE: 


AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB 
BBBBBBBBBBBBBBBBBBBBBBBBBBBBBB 


IF THE AUTO LINE FEED OPTION IS SET TO PRODUCE AN AUTOMATIC LINE FEED 
AFTER EVERY RECEIVED CARRIAGE RETURN, THE TEST WILL PRINT SIX LINES OF 
EACH CHARACTER WITH A BLANK LINE BETWEEN THE FIRST AND SECOND LINES AS 
WELL AS BETWEEN EACH GROUP OF CHARACTERS. 


EXAMPLE: : 
AAAAAAAAAAAAAAA 


AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 


SEQ 0019 
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6.2 ECHO TESTS 


THESE TESTS ARE DESIGNED AS A TEST OF THE KEYBOARD AND AN AID IN 
ISOLATING TROUBLES WITHIN THE TERMINAL. AT THE BEGINNING OF EACH 
TEST, THE TEST NUMBER WILL BE PRINTED INDICATING WHICH TEST IS BEING 
EXECUTED. TYPING A ‘‘RUBOUT’’ OR ‘‘DELETE’’ AT ANY TIME, WHETHER IN 
KEYBOARD CONTROL OR NOT, WILL EXIT THE CURRENT ECHO TEST AND PRINT A 
TEST TERMINATION MESSAGE. IF IN KEYBOARD CONTROL, THE SELECT TEST 
MESSAGE WILL BE PRINTED AND THE PROGRAM WILL AWAIT A TEST SELECTION AS 
USUAL. IN SWITCH REGISTER CONTROL, THE PROGRAM WILL HALT (AT SELLHLT) 
WAITING FOR CONTROL VIA THE SWITCH REGISTER. A DETAILED DESCRIPTION 
OF EACH TEST FOLLOWS: 


6.2.1 TEST 20 - CHARACTER ECHO TEST 


THIS TEST 1S DESIGNED TO OPERATE THE TERMINAL IN A SIMULATED LOCAL 
MODE. ANY CHARACTER TYPED ON THE KEYBOARD (EXCEPT A ‘'RUBOUT'') WILL BE 
ECHOED TO THE PRINTER. 


6.2.2 TEST 21 - LINE ECHO TEST, FAST RATE 


THIS TEST CONTINUALLY SENDS FULL LINES OF ANY CHARACTER UP TO THE 

MAXIMUM COLUMN WIDTH. THE TEST PRINTS A ‘'0’’ CHARACTER WHEN STARTED 

UNTIL A KEY IS TYPED ON THE KEYBOARD. THE PROGRAM WILL THEN SEND THE 

TYPED CHARACTER UNTIL ANOTHER CHARACTER IS TYPED OR THE TEST IS 

TERMINATED BY TYPING A ‘‘RUBOUT'’. THE CHARACTERS ARE TRANSMITTED AT 

THE MAXIMUM RATE WITH A CARRIAGE RETURN-LINE FEED INSERTED AFTER EVERY 
132(10) PRINTABLE CHARACTERS. 


IF THE LA36 1S IN HALF DUPLEX WHEN RUNNING THIS TEST, CHARACTERS MAY 
BE LOST OR GARBLED WHENEVER A CHARACTER IS TYPED ON THE KEYBOARD. 


WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC. LINE FEED 
Se inieb | tae CARRIAGE RETURN, THERE WILL BE A BLANK LINE BETWEEN EACH 
PRIN LINE. : 


6.2.5 TEST 22 - LINE ECHO TEST, SLOW RATE 


THIS TEST 1S IDENTICAL TO TEST 21 EXCEPT A DELAY OF 1.8 SECONDS IS 
INSERTED BETWEEN EACH CHARACTER TO ALLOW THE PRINT HEAD TO PERFORM AN 
LCV BETWEEN CHARACTERS. 


SEQ 0021 


ee 


ee 


eS seein 
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6.2.4 TEST 23 = CHARACTER/CODE ECHO TEST 


THIS TEST WILL PRINT THE OCTAL CODE RECEIVED BY THE PROCESSOR FOLLOWED 
BY THE CHARACTER OR THE MNEMONIC OF THE CHARACTER EVERY TIME A KEY IS 
PRESSED ON THE KEYBOARD. THE PARITY OF THE RECEIVED CODE WILL BE 
INDICATED AS EITHER ODD OR EVEN. ALLOW SUFFICIENT TIME BETWEEN 
CHARACTERS FOR THE LINE TO BE PRINTED. 


WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC LINE FEED 
AFTER EVERY RECEIVED CARRIAGE RETURN, THERE WILL BE A BLANK LINE 
BETWEEN EACH PRINTED LINE. 


EXAMPLE: 


301 A ODD 
263 «3 ODD 
215 CR EVEN 
240 ~=s SP EVEN 


6.2.5 TEST 24 = SELECTED PATTERN ECHO TEST 


THIS TEST IS DESIGNED TO GIVE MAINTENANCE THE FLEXIBILITY TO CHOOSE 
iets FOR ISOLATING ANY SPECIFIC PROBLEMS WHICH MAY ARISE 
H LD. 


TYPE ANY CHARACTERS (EXCEPT CONTROL-C AND RUBOUT) AND EACH CHARACTER 
WILL BE ECHOED AS TYPED. A MAXIMUM OF 256(10) CHARACTERS MAY BE 
INPUTTED. NO CARRIAGE RETURNS OR LINE FEEDS ARE INSERTED BY THE 
PROGRAM, ALL CHARACTERS MUST BE INPUTTED BY THE OPERATOR. 10 
TERMINATE THE INPUT STRING TYPE A CONTROL-C, THE PROGRAM WILL THEN 
CONTINUALLY ECHO THE INPUTTED PATTERN. TO STOP THE PRINTING, TYPE 
CONTROL-C. THE PROGRAM WILL STOP PRINTING THE PATTERN AND WILL WAIT 
FOR EITHER ANOTHER PATTERN INPUT TERMINATED BY A CONTROL-C, OR THE 
SAME PATTERN MAY BE USED AGAIN BY TYPING CONTROL-C. TO EXIT THE TEST 
AT ANY TIME, TYPE A “’RUBOUT’’. 


WEN ANY OPTIONS ARE AVAILABLE, BE CAREFUL WHAT CHARACTERS OR 
CHARACTER SEQUENCES ARE SELECTED. 


6.2.6 TEST 25 - BELL ECHO TEST 


THIS TEST 1S DESIGNED 10 TEST THE BELL ON COLUMN 64 #=IIF TYPING HAS 
OCCURED ON THE LINE. THE TEST PRINTS A MESSAGE: 


TYPE ANY PRINTABLE CHARACTER AND LISTEN FOR BELL ......eseeee 


AFTER THE TEST MESSAGE IS PRINTED, TYPE ANY PRINTABLE CHARACTER ON THE 
KEYBOARD. THE CHARACTER WILL BE ECHOED AND THE BELL SHOULD RING. THE 


SEQ 0022 
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THE TEST AT ANY TIME. 


TYPE THE “‘RUBOUT"’ KEY TO 


TERMINATE 


me ee 


SEQ 0025 
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6.35 OPTION TESTS 


THESE TESTS ARE DESIGNED AS A TEST OF THE VARIOUS OPTIONS IN WHATEVER 
COMBINATIONS THEY ARE AVAILABLE IN THE LA36. AT THE BEGINNING OF EACH 
TEST, THE TEST NUMBER WILL BE PRINTED INDICATING WHICH TEST IS BEING 
EXECUTED. TYPING A ‘‘RUBOUT'’ OR ‘‘DELETE'’ AT ANY TIME, WHETHER IN 
KEYBOARD CNTROL OR NOT, WILL EXIT THE CURRENT OPTION TEST. A DETAILED 
DESCRIPTION OF EACH TEST FOLLOWS: 


6.3.1 TEST 30 - SECONDARY CHARACTER SET OPTION 


THIS TEST IS DESIGNED TO TEST THE SECONDARY CHARACTER SET OPTION, 
TESTING THE ABILITY TO SELECT EITHER CHARACTER SET UNDER SOFTWARE 
cartie ae CPU AND PRINTING THE CORRECT CHARACTERS WITHIN EACH 
H ° 


A NUMBER IS PRINTED AT THE LEFT MARGIN INDICATING WHICH CHARACTER SET 
1S BEING PRINTED, #1 INDICATES THE PRIMARY SET AND #2 INDICATES THE 
SECONDARY SET (APL). AFTER THE NUMBER, THE APPROPRIATE SHIFT IN (SI) 
OF SHIFT OUT (SO) WILL BE SENT FOLLOWED BY THE ENTIRE PRINTABLE 
CHARACTER SET. IF LESS THAN 98 COLUMNS ARE BEING TESTED, A CARRIAGE 
RETURN - LINE FEED WILL BE INSERTED IN THE APPROPRIATE PLACES. THIS 
WILL BE REPEATED, ALTERNATING BETWEEN PRIMARY AND SECONDARY SETS UNTIL 
16 LINES HAVE BEEN PRINTED (IF USING 98 OR MORE COLUMNS). THERE WILL 
BE A BLANK LINE BETWEEN EACH PAIR OF LINES TO SEPARATE EACH GROUPING. 
CHANGE LOCATION ‘'T350SC*’ AT THE END OF TEST30 TO 377 (8) IF USING 8 BIT 
SELECTION CODE RATHER THAN THE SI] AND SO TO -SELECT CHARACTER SETS. 
THE TEST WILL THEN SET OR CLEAR BIT 8 INSTEAD OF SENDING THE SI OR SO 
TO SELECT CHARACTER SETS. 


WITH THE AUTO LINE FEED OPTION SET TO PRODUCE AN AUTOMATIC LINE FEED 
AFTER EACH RECEIVED CARRIAGE RETURN, THERE WILL BE EXTRA BLANK LINES 
EVERY PLACE A CARRIAGE RETURN IS SENT. 


EXAMPLE: 
Wi= ''S28' 0)... 2 eee «PRIMARY CHARACTER SET.........- 
W2= '"'O$28'().......SECONDARY CHARACTER SET......... 
Bt= (9ORS 0) . cikdeas PRIMARY CHARACTER SET.........- 
M2= '"PSEE"C).. cece SECONDARY CHARACTER SET........ F 


SEQ 0024 
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6.3.2 TEST 31 - SELECTIVE ADDRESSING OPTION 


THIS TEST 1S DESIGNED TO TEST THE VARIOUS FUNCTIONS OF THE SELECTIVE 
ADDRESSING OPTION. THE TEST FIRST SENDS AN ‘‘EOT'’ <004> TO DISABLE ALL 
TERMINALS AND TRIES TC PRINT AN ERROR MESSAGE. THE ERROR MESSAGE 
SHOULD NOT BE PRINTED ON ANY TERMINAL WITH THE SELECTIVE ADDRESSING 
OPTION. THEN A “'BEL*’ <007> AND ‘’STX"' <002> ARE SENT TO SELECT ALL 
TERMINALS. AT THIS POINT THE TEST NUMBER IS PRINTED ON ALL TERMINALS. 
THUS, IF AN ERROR MESSAGE IS PRINTED BEFORE THE TEST NUMBER, THE €EOT 
DID NOT DE-SELECT THE TERMINAL WHERE THE MESSAGE WAS PRINTED. 


THE TEST NEXT SENDS AN EOT DIRECTLY FOLLOWED BY A STX, WITH NO SELECT 
CHARAACTER. AGAIN, THE ERROR MESSAGE IS SENT TO ALL TERMINALS, WHICH 
SHOULD NOW BE ALL DE-SELECTED. THE ERROR MESSAGE SHOULD NOT BE 
PRINTED ON ANY TERMINAL WITH THE SELECTIVE ADDRESSING OPTION. 


THE NEXT SERIES OF CHECKS ARE MADE ON THE GROUP SELECT CHARACTER. A 
TABLE LOCATED AT THE END OF TEST 31 IN THE LISTING IS USED TO TEST 
VARIOUS GROUP SELECT CHARACTERS. THE FIRST ZERO ENCOUNTERED IN THE 
TABLE WILL INDICATE THE END OF THE TABLE AND THE TEST WILL GO TO THE 
NEXT SERIES OF CHECKS ON THE OPTION. THE TABLE IS PRESET WITH A 
SINGLE GROUP SELECT CHARACTER, THE LETTER ‘'G'', BUT ALLOWS ROOM TO TEST 
UP TO 8 DIFFERENT SELECT CODES. THIS TABLE SHOULD BE CHANGED TO 
CONTAIN THE VARIOUS GROUP SELECT CHARACTERS DESIRED TO TEST WITH ONE 
ASCII] CODE PER LOCATION. THE TEST WILL THEN USE THE VARIOUS GROUP 
SELECT CHARACTERS TO SELECT TERMINALS AND PRINT A MESSAGE ON EACH 
SELECTED TERMINAL INDICATING THE GROUP SELECT CHARACTER USED. CHECK 
THAT THE CORRECT GROUP SELECT CHARACTER HAS ENABLED EACH TERMINAL. 
ALSO, IT MAY BE HELPFUL TO PLACE ;UNUSED SELECT CHARACTERS IN THE 
TABLE TO CHECK THAT THEY DO NOT SELECT TERMINALS. IF AN ERROR MESSAGE 
WAS PRINTED BETWEEN THE TEST NUMBER AND THE GROUP SELECT MESSAGE, THE 
TERMINAL WHERE THE MESSAGE WAS PRINTED WAS SELECTED BY AN EOT AND STX 
WITH NO SELECT CHARACTER BETWEEN THEM. 


THE LAST SERIES OF CHECKS ARE MADE ON THE UNIQUE SELECT CHARACTER. A 
TABLE LOCATED AT THE END OF TEST 31 IN THE LISING IS USED TO TEST 
VARIOUS UNIQUE SELECT CHARACTERS. THE FIRST ZERO ENCOUNTERED IN THE 
TABLE WILL INDICATE THE END OF THE TABLE. THE PROGRAM WILL SELECT ALL 
TERMINALS USING THE BEL CODE BEFORE EXITING THE TEST. THE TABLE IS 
PRESET WITH A SINGLE UNIQUE SELECT CHARACTER, THE LETTER ‘'U"’, BUT 
ALLOWS ROOM TO TEST UP TO 16 DIFFERENT UNIQUE SELECT CODES. THIS 


TABLE SHOULD BE C 

CHARACTERS DESIRED TO TEST, WITH ONE ASCI] CODE PER LOCATION. MAKE 
SURE THAT EACH CHARACTER IN THE TABLE IS A VALID UNIQUE SELECT CODE OR 
THE DIAGNOSTIC WILL HANG DURING THIS PORTION OF THE TEST. USING EACH 
UNIQUE SELECT CHARACTER IN TURN, THE TEST WILL PERFORM THE REMAINING 
CHECKS OF THE SELECTIVE ADDRESSING OPTION. 


~ 


SEQ 0025 
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1062 THE TEST WILL SEND AN EOT FOLLOWED BY THE CURRENT UNIQUE SELECT 
1063 CHARACTER. BEFORE THE STX IS SENT, THE TEST WILL TRY TO PRINT THE 
1064 ERROR MESSAGE ON ALL TERMINALS. THEN THE STX WILL BE SENT AND A 
1065 MESSAGE WILL BE PRINTED TO INDICATE THE UNIQUE SELECT CHARACTER USED. 
1066 CHECK THAT THE CORRECT UNIQUE SELECT CHARACTER HAS ENABLED EACH 
1067 TERMINAL. IF AN ERROR MESSAGE IS PRINTED BEFORE THE UNIQUE SELECT 
1068 MESSAGE, THE TERMINAL WHERE THE MESSAGE WAS PRINTED WAS ENABLED BEFORE 
1069 THE STX WAS RECEIVED. A MESSAGE WILL THEN BE PRINTED TELLING THE 
1070 OPERATOR TO TYPE ANY PRINTABLE CHARACTER TO CHECK THAT THE KEYBOARD IS 
8. ENABLED. WHATEVER CHARACTER IS TYPED WILL BE ECHOED TO THE TERMINAL. 
1073 THE FINAL SECTION OF THE TEST WILL USE A DUMMY SELECT CHARACTER. THE 
1074 ASCI11 CODE FOR THIS SELECT CHARACTER IS LOCATED BETWEEN THE TWO SELECT 
1075 CHARACTER TABLE AT THE END OF THE TEST. THIS LOCATION SHOULD CONTAIN 
1076 THE ASCII CODE OF ANY UNUSED SELECT CHARACTER. THE TEST WILL SEND AN 
1077 EOT FOLLOWED BY THE DUMMY SELECT CHARACTER AND AN  STX. THE ERROR 
1078 MESSAGE WILL BE LOADED TO ALL TERMINALS AND SHOULD NOT BE PRINTED ON 
1079 ANY TERMINALS SINCE ALL SHOULD BE DE-SELECTED. NEXT AN ETX <003> 
1080 FOLLOWED BY THE CURRENT UNIQYUE SELECT CHARACTER AND AN STX WILL BE 
1081 SENT AND A PRINTED MESSAGE WILL INDICATE THE SELECT CHARACTER USED. 
1082 ANOTHER EXT WILL BE SENT, FOLLOWED BY THE DUMMY SELECT CHARACTER AND 
1083 AN STX THIS TIME. A MESSAGE WILL AGAIN BE PRINTED INDICATING THE 
1084 CURRENT UNIQUE SELECT CHARACTER. ALL SELECTED TERMINALS SHOULD REMAIN 
bes SELECTED AND NO OTHER TERMINALS SHOULD GET SELECTED. 

1087 

1088 

ys 44 6.3.3 TEST 32 - ANSWER BACK OPTION 

1091 THIS TEST IS DESIGNED TO TEST THAT THE ANSWER BACK OPTION SENDS’ THE 
1092 CORRECT MESSAGE UPON RECEIPT OF AN ENQ (005) OR UPON TYPING CONTROL~E 
1093 OR. THE HERE -IS- KEY ON THE KEYBOARD. - THE TEST WILL-SEND AN ENQ (005), 
1094 READ THE MESSAGE, AND THEN PRINT OUT THE MESSAGE ON THE LA36. THE 
1095 TEST WILL THEN ASK THE OPERATOR TO DEPRESS THE HERE IS KEY, READ THE 
1096 MESSAGE, AND THEN PRINT OUT THE MESSAGE. FINALLY, THE TEST WILL TELL 
1097 THE OPERATOR TO DEPRESS THE CONTROL-E KEY, READ THE MESSAGE, AND PRINT 
1098 OUT THE MESSAGE. IF THE SELECTIVE ADDRESSING OPTION IS AVAILABLE, THE 
1099 AUTO ANSWER BACK OPTION WILL NOT RESPOND TO ANOTHER ENQ AFTER THE 
ky t's “a FS ce ae THUS, YOU MAY HAVE TO DEPRESS THE RUBOUT KEY TO 
1 EX HE ° : 


ii 
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6.35.4 TEST 33 - TOP OF FORM OPTION 


2 

3 

4 

é 

7 THIS TEST IS DESIGNED TO TEST THE FORM FEED CAPIBILITY OF THE TOP OF 
8 FORM OPTION. A SET OF INSTRUCTIONS IS PRINTED FOR THE OPERATOR TO 
9 REMIND HIM TO DEPRESS THE TOP OF FORM RESET SWITCH AFTER MAKING EACH 
0 SWITCH SETTING. UPON COMPLETION OF EACH SETTING, AFTER DEPRESSING THE 
1 RESET SWITCH, TYPE ANY CHARACTER (EXCEPT RUBOUT) ON THE KEYBOARD 10 
2 TEST THAT SWITCH S°:TTING. THE REFERENCE LINES PRINTED WILL INDICATE 
3 THE LENGTH FORM FEED JUST EXECUTED AND THE NEXT SWITCH SETTING TO 
4 MAKE. THE 3 INCH FORM FEED IS TESTED TWICE BEFORE TESTING THE 
5 REMAINING POSITIONS. THE FIRST TIME, 16 OR 17 LINE FEEDS ARE EXECUTED 
6 BEFORE DOING THE FORM FEED, DEPENDING ON HOW THE AUTO LINE FEED OPTION 
7 1S SET UP. THE DIAGNOSTIC WILL THEN TEST EACH POSITION IN SEQUENCE 
8 FROM 3 TO 14 INCHES. THE SINGLE STEP POSITION IS NOT CHECKED. 


6.5.5 TEST 34 - HORIZONTAL TAB OPTION 


9 
0 
1 
fy THIS TEST CHECKS THE ABILITY TO SET A TAB IN EVERY COLUMN AND AT 
5 PREDETERMINED INTERVALS, AS WELL AS THE ABILITY TO CLEAR ALL TABS. 
6 THE PROGRAM SETS A TAB IN THE PREDETERMINED COLUMN, DOES A BACKSPACE, 
7 AND PRINTS AN ‘'O"’. AFTER THE LINE IS PRINTED AND THE TABS ARE SET, A 
8 CARRIAGE RETURN IS SENT AND THEN THE PRINT HEAD IS POSITIONED USING 
9 TABS AND X*S ARE PRINTED OVER THE O'S. SINCE THE FIRST LINE OF THE 
0 TEST SETS A TAB_IN EVERY COLUMN, THE PRINT HEAD IS TABED ACROSS THE 
1 PAGE TWICE TO TEST ALL TABS. THE FIRST PASS CHECKS THE EVEN NUMBERED 
2 COLUMNS WHILE THE SECOND PASS CHECKS THE ODD NUMBERED COLUMNS. THE 
3 TEST SETS TABS IN EVERY COLUMN, EVERY OTHER COLUMN, AND EVERY 4, 8, 
16, 32, 64, 128, & 132 COLUMNS. ALL HORIZONTAL TABS WILL BE CLEARED 
5 AT THE END OF THE TEST IF THE TEST IS RUN TO COMPLETION. IF A RUBOUT 
°  Baiead TO EXIT THE TEST BEFORE COMPLETION, THE TABS WILL STILL BE 
SE a 


EXAMPLE: 


WHEN THE AUTO LINE FEED OPTION IS SET UP TO PRODUCE AN AUTOMATIC LINE 
FEED AFTER EVERY RECEIVED CARRIAGE RETURN, THERE WILL BE A BLANK LINE 
BEFORE EACH REFERENCE LINE OF O°S AND THE X'S WIL BE PRINTED ON THE 
NEXT LINE UNDER THE O'S. THE FIRST LINE OF O°S WILL HAVE 2 LINES OF 
X'S UNDER IT, THE FIRST HAVING X*S IN ALL EVEN NUMBERED COLUMNS AND 
THE SECOND HAVING X‘S IN ALL ODD NUMBERED COLUMNS. 


Ss SA ET me 


— a ee 
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1156 | 
1157 EXAMPLE: 
1158 | 
1159 000000000000 | 
1160 XX XXX X | 
1161 KX XXX X | 
1162 
1163 000000 
1164 XX XXX X 
1165 
1166 6 6 0 
1167 x x xX 
1168 
1169 0 
1170 : 
1171 
1172 
1173 
117% 6.3.6 TEST 35 - VERTICAL TAB OPTION 
1176 THIS TEST CHECKS THE VERTICAL TAB OPTION BY TESTING THE ABILITY TO SET 
1177 TABS IN VARIOUS POSITIONS OF A 14 INCH FORM. AN INSTRUCTION IS 
1178 PRINTED TELLING THE OPERATOR TO SET A 14 INCH FORM LENGTH AND DEPRESS 
1179 THE TOP OF FORM RESET SWITCH. WHEN READY, TYPE ANY CHARACTER (EXCEPT 
1180 RUBOUT) ON THE KEYBOARD TO CONTINUE. THE TEST WILL SEND LINE FEEDS, 
1181 SET TABS, AND PRINT REFERENCE LINES WHEREVER A TAB IS SET. AT THE END 
1182 OF THE FORM, A MESSAGE WILL INDICATE TO EITHER REMOVE THE REFERENCE 
1183 PAGE (WITHOUT TOUCHING THE KEYBOARD) OR RESET THE FIRST REFERENCE 
1184 LINE. TO RESET THE REFERENCE PAGE IN THE PRINTER, OPEN THE PAPER 
1185 TRACTORS AND PLACE THE FIRST REFERENCE LINE INFRONT OF THE PRINT HEAD. 
1186 WHEN READY TO CONTINUE, TYPE ANY CHARACTER (EXCEPT RUBOUT) ON THE 
1187 KEYBOARD. THE TEST WILL THEN REPRINT THE REFERENCE LINES, USING THE 
1188 TABS INSTEAD OF LINE FEEDS TO ADVANCE THE PAPER. IF THE FIRST 
1189 REFERENCE PAGE WAS REMOVED, HOLD IT AGAINST THE SECOND REFERENCE PAGE 
1190 TO CHECK FOR PROPER PAPER ADVANCING USING TABS. IF THE REFERENCE PAGE 
1191 WAS RESET IN THE PRINTER, THE SECOND SET OF REFERENCE LINES SHOULD 
1192 HAVE PRINTED DIRECTLY OVER THE FIRST SET EXCEPT ON THE FIRST LINE 
1193 WHERE THEY SHOULD BE SIDE-BY-SIDE. ALLOW FOR A SLIGHT VARIANCE IN 
1194 PAPER POSITION WHEN CHECKING THAT THE REFERENCE LINES ARE CORRECT, 
1195 LOOK FOR = FULL LINE. DIFFERENCES. THE TEST PRODUCES 
1196 0,1,2,3,4,5,6,7,8,9, & 10 BLANK LINES BETWEEN THE REFERNECES LINES, IN 
1197 THAT ORDER. 
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EXAMPLE: 


oan (a eee CE 
Seonnamne RKC CCK 


tomnenwene KK CCC 


oannawnaen KKK CCRC 


sma KKK CCK 


Obennodons KKK CCC 


aeeaenenene KKK CCC 


‘eneee FIRST REF. 


PAGE 26 


LINE WITH TABS 


THE REFERENCE PATTERN PRODUCED WILL BE DIFFERENT IF THE AUTO LINE FEED 


OPTION IS SET UP 
RECEIVED CARRIAGE RETURN. 


TO PRODUCE AN AUTOMATIC LINE FEED AFTER EVERY 
THERE WILL, IN FACT, BE ONE EXTRA LINE 


BETWEEN EACH REFERENCE LINE DUE TO THE AUTO LINE FEED. 


EXAMPLE :. 
aseeanenee KK 
Me ee ee ce 764 oa a a4 
Sthenewn K€ 000 
Shenene = eee eee ad 
aseacese €h CCC 
a 


satatmnaan Te eae eaad 


-TITLE CZLADDO LA36 DH11/DJ11 DIAG 


SEQ 0029 — 


tess 


— § 

CZLADDO LA36 DH11/DN11 DIAG MACY11 30A(1052) 03-AUG-79 09:23 PAGE 20 
ZLADD.P11 035-AUG-79 09:18 SEQ 0030 
1254 | 
1255 

1256 ! 
1257 :LA36 TERMINAL DIAGNOSTIC | 
1258 :DH11 AND DJ11 INTERFACES 
1259 | 
1260 

1261 | 
1e6¢ ;AUTHOR: ROBERT W. BAKER 

aaee ;COPYRIGHT 1974,1979, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 

1266 

1267 

1268 

i -SBTTL SWITCH REGISTER OPTIONS 

1271 

S98 : SWITCH POSITION FUNCTION 

1274 : 15 UP (1) HALT AT END OF CURRENT TEST 

th : DOWN (0) CONTINUE NORMAL TEST SEQUENCE 

1277 : 

1278 ‘ 13 UP (1) DRIVE ONLY SELECTED TERMINAL 

1279 : DOWN (0) DRIVE ALL TERMINALS 

1280 

1281 

1282 : 8 UP (1) SELECT TEST (AT START UP ONLY) 

i: : DOWN (0) START NORMAL TEST SEQUENCE 

1285 : 00 - 07 # OF COLUMNS AT START-UP 

1287 ; 00 - 05 # OF TEST SELECTION 

1288 

1289 

1290 

1291 

1292 -SBTTL SPECIAL OPERTIONAL NOTES 

1293 

1598 

1296 :l.-- BEFORE START UP REFER TO THE DESCRIPTION OF THE ROUTINE ''DLY'’ 

1297 ; TIMING IS A FUNCTION OF THE PDP11 MODEL AND MEMORY TYPE AND 

is ; SHOULD BE SET UP BEFORE RUNNING THE DIAGNOSTIC. 

ene :2.7> THE DIAGNOSTIC WILL NOT RUN UNLESS THE ELTAB TABLE IS MANUALLY INITIALIZED. 

1302  eeeeenereeeeeeeeetees 

1303 33.°-- ECO TABLE 

1304 :CHGD1 - 3 ADDITIONAL EMT ROUTINES 

1305 :CHGD2 - ADDED DEFINITIONS 

306 ;CHGD3 = NEW START UP PROCEDURE ALLOWS ENTERING SOFT SWITCH REG 

1307 :CHGD4 - FLAG FOR CHECKING “G FROM KEYBOARD 

1308 ;CHGD5 - PREVIOUS DEPO TO ADD 4 FILL CHARACTERS AFTER EA CARRIAGE RET 

1309 :CHGD6 - PART OF DEPO ON 4 FILL CHARACTERS 


o> 
om Be] 
' & 
vo 
— 

=r 


Ts ttre a 
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;CHGD7 - ADDED SCKSWR ROUTINE TO CHECK SWITCH REGISTER, PRINTOUT 

; CONTENTS, ENTER NEW DATA TO SWITCH REGISTER 

;CHGD8 - NEW PRINT MESSAGES FOR “G ADDITION 

;CHGD9 - EXTENSION OF CHGD3. WAIT AND SEE IF ANY DH OR DJ DEVICES 
>CHGD10 - FLAG FOR CHECKING *G DURING PRINT OPERATION 


;ereeeeeeereerereeee eet 


-SBTTL EQUATES 


SEQ 0031 


REGISTER EQUATES 


000000 RO=%0 
000001 R1=%1 
009002 R2=%2 
000003 R3=%3 
000004 R4=%4 
000005 R5=%5 
000006 SP=%6 
000007 PC=%7 
177776 PSW=177776 

- SYSTEM EQUATES 
000001 BIT0=1 
000002 BIT1=2 
000004 B1T2=4 
000010 B11T3=10 
000020 B1T4=20 
000040 B115=40 
000100 B1T6=100 
000200 B1T7=200 
000400 B118=400 
001000 B11T9=1000 
002000 B11T10=2000 
004000 B11711=4000 
010000 B1112=10000 
020000 B11T13=20000 
040000 B1114=40000 
100000 B1115=100000 
000000 OPEN=0 
022626 POPSP2=22626 POP STACK TWICE 
000200 ACRLF=200 


005726 POPSP=5726 ;POP STACK ONCE 


: A OE 


a ne ee 


SEE 
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CZLADD.P11 03-AUG-79 09:18 SEQ 0032 
1228 ; PROGRAM TRAP EQUATES 
1358 104000 TYPE=EM1+0 
1359 104001 CHAIN=EMT+1 
1360 104002 TYPEM=EMT+2 
1361 104003 DELAY=EMT+3 
1362 104004 TTYCTL=EMT+4 
1363 104005 TTYJTL=EMT+5 
1364 104006 CRLF=EMT+6 
1365 104007 SCRLF=EMT+7 
1366 104010 LF=EMT+10 
1367 104011 PRINTC=EMT+11 
1368 104012 PRTHDR=EMT+12 
1369 104013 READ=EMT+13 
1370 104014 CR=EMT+14 
1371 104015 BIOASC=EMT+15 
1372 104016 FORWD=EMT+16 
1373 104017 CLEAN=EMT+17 
1374 104020 TESTC=EMT+20 
1375 104021 ECHO=EMT+21 
1376 104022 INRDY=EMT+22 
1377 104023 FOUR=EMT+23 ;CHGD1 
1378 104024 CKSWR=EMT+24 
1379 104025 CNILU=EMT+25 
1 20 -SBTTL TRAP CATCHER & STARTING ADDRESSES 
1382 
1383 
1384 -ENABL ABS 
HH -ENABL AMA sENABLE ABSOLUTE ADDRESSING 
1387 000000 .=0 
1388 
1389 000000 000000 HALT 
44 000002 000000 HALT 
1392 000004 =4 
1393 
1594 000004 MACHER: 

1395 
1396 000030 .=50 
1397 
1398 000030 003346 EMTINT 
1399 000032 000340 340 
1400 
1401 000046 .=46 
1402 
by 000046 010740 LOGICAL 
4 
1405 000052 252 
1406 
py «4 000052 010000 010000 
4 
eat: 000174 ~=174 
4 
1411 000174 000000 DISPREG: .wORD 0 >SOFTWARE DISPLAY REG 





SN A i ee 


ee 


SL eereeneeeneneenenennneeeeneneee 
3 


4 
CZLADDO LA36 DH11/DU11 nant MACY11 30A(1052) 03-AUG-79 09:23 PAGE 33 | 
CZLADD.P11 03-AUG-79 09:18 TRAP CATCHER & STARTING ADDRESSES SEQ 0035 — 
: 

a 000176 000000 SWREG: -WORD 0 sSOFTWARE SWITCH REGISTER | 

tata :STARTING ADDRESSES 

1416 000200 000137 001276 JMP START ; RUN DH11 TESTS 

Hs $4 000204 000137 001266 JMP START1 ;RUN DJ11 TESTS 

4 

1419 

io 001100 -=1100 

4 

1422 001100 000000 SPBOT: 0 ;BOTTOM OF STACK 


OE 


ee oe ee 
-_ SS ts -stteeereee — 


sss 
CZLADDO LAS6 DH11/DJ11 aoe 
CZL P11 18 


ADD .P 


. 
wn 


—OODOneouvwlfwnr—-oO 


I eee 
5 a ee ee ee ee ee ae ae ae 
OOWWUN"NN 


™ 
o 
MN 


1465 


MIMINIAY — — 2 


OPW LH LE 
MOC FroIOG LF 


So 
© 
par 
PMO PRO RSPO Po PD — — ee 2 ee we ws ws ws 


MmMrMnN—OoO~n~ 
Of wmwonwflcoo 


001230 


001244 
001246 


001264 


000554 
000000 


177570 
177570 


000000 
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000002 


020000 
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-SBTTL SYMBOL DEFINITIONS 


TIMER: 554 
CNILSW: OPEN 
RTNNO: OPEN 
NXTST OPEN 
WIDTH OPEN 
REPT OPEN 
SPCNT OPEN 
CURTST: OPEN 
POSI: OPEN 
TEMPCH: OPEN 
PARITY: OPEN 
PCHAR OPEN 
LF CNT OPEN 
DHADR: 160020 
SCR: 160020 
NRCRA: 160022 
LPR: 160024 
CARA: 160026 
BYCR: 160030 
BAR: 160032 
SSR: 160036 
CNTDH OPEN 
LINENO: OPEN 
MASK: OPEN 
BITTAB: 1,2, 
10,20 
100000 
ACTIV: OPEN 
10SW: OPEN 
DJCNT: OPEN 
DHCNT: OPEN 
SCR1: OPEN 
SCR2: OPEN 
CSR: 160010 
TCR: 160014 
TBUF 160016 
SR: digs 
;eerreeeee 
DISPLAY: Sg 
TIB: OPE 
TEMPST: OPEN 
COUNT: OPEN 
FILL: OPEN 
MODE: OPEN 
CNT: OPEN 
TIMES: OPEN 


,eeerereeeeeeeeeeereeeeeee 


CHGD2 


;1 MSEC COUNTER FOR ROUTINE ‘DELAY’ 


>CONSOLE TERMINAL CONTROL SWITCH 
;CONTAINS CURRENT TEST NUMBER 
>CONTAINS ADDRESS OF NEXT TEST 
;CURRENT PAPER WIDTH, BINARY 

; TEMP STORAGE FOR i E0218E022 


>COUNTER FOR TEST ROUTINE ‘'PT3"’ 
sADDRESS OF CURRENT TEST 

sPOSITION COUNTER FOR TESTS E0218E022 
> TEMP STOR FOR ECHO TESTS 

:PARITY FLAG 


:CHAR CODE WITH PARITY BIT 

>COUNTER FOR TEST ROUTINE ‘'PT4’’ 
ADDRESS OF FIRST DH11. (RECALCULATED) 
> SYSTEM CONTROL REGISTER 

>NEXT RECEIVED CHARACTER REG. 

;LINE PARAMETER REG 

>CURRENT ADDRESS REGISTER 

;BYTE COUNT REG 

>BUFFER ACTIVE REG 

:SILO STATUS REG 


;NO. OF THE DH11 UNDER TEST 
>NO. OF THE TERMINAL UNDER TEST 
>MASK OF LINE NO. UNDER TEST 

; TABLE OF LINE NO. MASKS 


> TEST ACTIVE INDICATOR 

:=0,0H11 UNDER TEST--=1 »-DJ11 UNDER TEST 
:COUNT OF DJ11'S ON BUS 

>COUNT OF DH11°S ON BUS 


;TEMP STORAGE USED BY PRINTC 
TEMP STORAGE USED BY PTINTC 
;DJ11 CONTROL STATUS REG 
:DJ11TRANSMITTER CONTROL REG 
;DJ11 TRANSMITTER BUFFER REG 
;SW REG ADDRESS 


>DISPLAY REGISTER 

; TEMP KEYBD BUFFER STORAGE 
; TEMP WORK LOCATION 

;LOOP COUNT FOR TEST 

ZERO FILL SWITCH 

;NUMBER OF DIGITS TO TYPE 
> TTERATION COUNT 

> COUNTER FOR ELTAB 


SEQ 0034 


SS 
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C 
CZLADD.P 03-AUG-79 09:18 PROGRAM INITIALIZATION & CONTROL SEQ 0035 © 
gf -SBTTL PROGRAM INITIALIZATION & CONTROL 
1479 
1480 
1481 steeeeene 
1482 ; 
1485 ;PROGRAM START 
1484 . 
1485 seeeaeeee 
1486 
1487 001266 012737 177777 001224 START1: MOV #177777,10SW :SET UP FOR DJll TEST 
1488 001274 000402 BR STARTX 
pr 001276 005037 001224 START: CLR 10SW ;SET UP FOR DH11 TESTS 
1491 001302 012706 001100 STARTX: MOV #SPBOT,SP ;SET STACK POINTER 
1492 001306 013746 000006 MOV 6,-(SP) ;SAVE CURRENT VECTORS 
1493 001312 013746 000004 MOV 4,- (SP) 
1494 :eeeeeeeeneeeeeeeeees 
1495 001316 012737 001336 000004 CHGD3: MOV #64$ ,a44 ;SET UP LOC 4 FOR NON-EXIS MEM TRAP 
1496 001324 022777 177777 177712 CMP #-1,aSR ;REFERENCE HDWE SW REG 
1497 001332 001402 BEQ 65$ ;1F IT = =-1,USE SOFT SW REG 
1498 001334 000407 BR 66$ : THEN USE HD WE SWITCH REG 
1499 001336 022626 64$: CMP (SP)+,(SP)+ ;CORRECT THE STACK, NO HDWE SW REG 
1500 001340 012737 000176 001244 65$: MOV #SWREG, SR *POIN NT TO SOFT SW WwW REG 
1501 001346 012737 000174 001246 MOV #DISPREG, DISPLAY :POINT TO SOFT SW REG 
1502 001354 012637 000004 66$: MOV (SP)+, an RESTORE VECTORS 
1505 001360 012637 000006 MOV (SP)+,a#6 : SAME 
1504 001364 104017 60$: CLEAN ;CLEAN UP 
1505 001366 005037 001104 CLR CNILSW > INITIALIZE TERMINAL CONTROL SWITCH 
1506 001372 012737 004216 000024 MOV M#PFAIL,24 :SET ADDR POWER FAIL ROUTINE 


1507 seeeeneeeeeeeeeeee eee 


LT TST SN Sepa srs eusnenepe-apen 


LE a — 
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CZLADD.P11 03-AUG-79 09:18 PROGRAM INITIALIZATION & CONTROL SEQ 0056 
1508 seeneereeee ) 
1509 ° 
1510 >THIS NEXT PART CHECKS THE PRESENCE OF DJ11 OR DH11 
1511 >STARTING AT 776010. A MESSAGE WILL BE PRINTED ON 
1512 >THE CONSOLE TERMINAL INDICATING THE NUMBER 
1513 >PRESENT. THE PRINTER DIAGNOSTIC WILL ADDRESS EACH OF 
saue ; THE TERMINALS IN THE SYSTEM 
1516 Prttttiitt 
1517 
1518 001400 012737 001432 000004 MOV #END3 MACHER > INIT TIME OUT TRAP 
1519 001406 005037 001226 CLR DJCNT :CLEAR DJ11 COUNTER 
1520 001412 012700 160010 MOV #160010,R0 sADDR OF FIRST DJ11 
1521 001416 005710 1$: TST (RO) sREF DJ11 
1522 001420 062700 000010 ADD #10,R0 :SET RO TO NEXT Dull 
1525 001424 005237 001226 INC DJCNT : INCREMENT COUNT OF DJ11'S 
1353 001430 000772 BR 1$ ; TEST PRESENCE OF NEXT Dull 
1526 001432 022626 ENDS: POPSP2 ; POP 2 FROM STACK 
1527 001434 030027 000010 BIT RO,#10 ;CHECK IF RO IS MULTIPLE OF 20 
1528 001440 001402 BEQ 1$ ;SKIP IF YES 
1529 001442 062700 000010 ADD #10,R0 ;MAKE RO FIRST DH11 ADDR 
1530 001446 010037 001134 1$: MOV RO,DHADR :SAVE AS FIRST DH11 ADDRES 
1531 001452 012737 001500 000004 MOV WEND4 ,MACHER :SET TIME OUT TRAP 
1532 001460 005037 001230 CLR DHCNT :CLEAR COUNT OF DH11'S 
1533 001464 005710 2$: TST (RO) :TEST IF DH11 IS PRESENT 
1534 001466 062700 000020 ADD #20,R0 :YES, SET RO TO NEXT DH11 
1535 001472 005237 001230 INC DHCNT ; INCREMENT COUNT OF DH11°S 
1339 001476 000772 BR 2$ ;CHECK IF NEXT ONE IS PRESENT 
1336 001500 022626 END4: POPSP2 :POP 2 FROM STACK 
1540 seeekeeeeeeeeeeeteeee 
1541 001502 032737 000077 001230 CHGD9: BIT #77 ,DHCNT ; ANY DH11°S PRESENT? 

1542 001510 001005 BNE 20$ ;1F YES, BRANCH 

1543 001512 032737 000077 001226 BIT #77 ,DJCNT ;ANY DJ11°S PRESENT? 

1544 001520 001001 BNE 20$ :1F YES, BRANCH 

1545 001522 000000 HALT :NO DJ11 OR DH11 AT ADDR 160010 OR 20 
1546 001524 022737 000176 001244 208: CMP #SWREG,SR :1S SOFT SW REG SELECTED? 

1547 001532 001001 BNE 60$ ;1f NOT, SKIP OVER NEXT OPER 

1548 001534 104025 CNTLU ;SOFT SWITCH REG INPUT ROUTINE 

1549 001536 60$: 


a a 
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15 seeaeeeeeee 





50 
551 
552 READ THE PAPER WIDTH, NUMBER OF COLUMNS, 
555 >FROM SWITCH REGISTER POSITIONS 0-7. SAVE AND 
554 :CONVERT TO 3 ASCII CHARACTERS. A WIDTH GT132 
+ $4 : OR LT50 COLUMNS (DECIMAL) WILL BE ABORTED TO 132. 
: TTT TTT Tre 
001536 017701 177502 MOV aSR,R1 >PUT (SR) INTO RI 
001542 042701 177400 BIC #177400,R1 + SAVE ONLY BITS 0-7 
001546 020127 000204 CMP R1,#204 ; TEST NO. COLUMN GTi32 
001552 101003 BHI 2$ ;COLUMNS GT132, DEFAULT TO 132 
001554 020127 000035 1$: CMP R1,#35 :CHECK IF NO. COLUMNS LT 30 
001560 101002 BH] 3$ NOT LT 30 NOR GT 132 
001562 012701 000204 2$: MOV #204,R1 + COLUMNS LT 30 OR GT 132, DEFAULT 
001566 010137 001112 3$: MOV R1,WIDTH SAVE NO. COLUMNS IN WIDTH 
1567 001572 012700 017654 MOV #HDRO,RO ADDR TO STORE ASC11 COLUMN VALUE 
1568 001576 012702 000003 MOV #3,R2 :D0 A 3 CHAR. CONVERSION 
1569 001602 104015 BTOASC >CONVERT NO. COLUMNS TO ASCII 
1570 001604 005037 001106 CLR RTNNO SET ROUTINE NO = 0 
1571 001610 000401 4$: BR 5$ sPRINT TITLE FIRST TIME 
1572 001612 000405 BR 6$ ;SKIP IT AFTER FIRST TIME 
1573 001614 104002 5$: TYPEM PRINT DIAGNOSTIC HEADER 
1574 001616 017442 STARTM 
1575 001620 012737 000240 001610 MOV #NOP ,4$ : TAKE OUT BRANCH INSTR 
1576 001626 005737 001224 6$: TST 10SW >CHECK IF DJ11 OR DH11 UNDER TEST 
1577 001632 001440 BEQ 10$ >BRANCH IF DH11 
1578 001634 013701 001226 MOV DJCNT,R1 :GET NUMBER OF DJ11°S 
1579 001640 012700 017613 MOV #DJ11S,R0 >ADDR TO STOR ASCII CHAR 
1580 001644 012702 000002 MOV #2,R2 >NO. OF ASCII CHARS (=2) 
1581 001650 104015 BTOASC :CONVERT TO ASCII 
1582 001652 104006 CRLF 7 
1583 001654 104002 TYPEM 
1584 001656 017613 DUIS ;OUTPUT MESSAGE 


—— 
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CZLADDO LA36 DH11/DJ11 DIAG MACY11 30A(1052) 
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1585 seenerees 

1586 ; 

fy ; START ALL DJ11 RECEIVER SCANNERS 

1589 : anche 

1590 

1591 001660 012701 160010 MOV #160010,R1 ;ADDR OF FIRST DJ1i SCR 

1592 001664 013703 001226 MOV DJCNT JR3 ;NO. OF DJ11 TO R3 

1593 001670 001002 BNE 8$ ;BRANCH IF COUNT IS NOT ZERO 
1594 001672 000000 7$: HALT 

1595 001674 000776 BR 7$ ;D0 NOT CONTINUE 

1596 001676 052711 000010 8$: BIS #10,(R1) ;CLEAR MOS 

1597 001702 012700 000005 9%: MOV #5,R0 ;DELAY TIME TO RO 

1598 001706 104003 DELAY 

1599 001710 031127 000020 BIT (R1),#20 sTEST IF CLEAR STILL BUSY 

1600 001714 001372 BNE $ : BRANCH IF BUSY 

1601 001716 052711 000001 BIS #1,(R1) :START SCANNER 

1602 001722 062701 000010 ADD #10,R1 :ADDR OF NEXT SCR 

1605 001726 005303 DEC R3 ;DEC COUNT OF DJ11 

1604 001730 001362 BNE 8$ ;NOT ZERO, START NEXT ONE 

1605 001732 000412 BR 11$ 

1606 001734 013701 001230 10$: MOV DHCNT,R1 :NO. OF DH11°S TO R1 

1607 001740 012700 017564 MOV #DH11S,R0 ;ADDR TO STORE ASCII CHAR 

1608 001744 012702 000002 MOV #2,R2 :NO. OF CHAR TO CONVERT 

1609 001750 104015 BTOASC :CONVERT TO ASCII 

1610 001752 104006 CRLF 

1611 001754 104002 TYPEM sOUTPUT MESSAGE 

1612 001756 017564 DH11S 

16153 001760 032777 000400 177256 11$: BIT #B1T8,aSR sCKECK IF WANT TEST SELECTION? 
1614 001766 001004 BNE 12$ BRANCH IF BIT 8 IS SET (YES) 
1615 001770 012737 006560 001110 MOV #PTO,NXTST :STARTUP PRINTING TESTS 

1616 001776 000431 BR CHAINY 

1617 002000 104002 128: TYPEM ; TYPE SELECT TEST NO. MESSAGE 
1618 002002 020066 MESG3 

1619 002004 005037 001222 CLR ACTIV SET TEST ACTIVE STATE NOT ACTIVE 
1620 002010 005737 001224 TST 10SW :DH11 OR DJ11 

1621 002014 001453 BEQ TTYIA ;WAIT FOR TERMINAL CONTROL FROM DH11 
1866 002016 000436 BR TTYJA ;WAIT FOR TERMINAL CONTROL FROM D0J11 

6 

1624 

1625 seeeeeeeeee 

1626 : 

i 24 ;CLEAN--INITIALIZES POINTERS BEFORE ENTERING A TEST 

1699 ‘eeeeeeeers 

1630 

1631 002020 012737 000006 000004 S$ CLEAN: MOV #6 ,MACHER ;SET UP MACHINE ERROR VECTOR 
16352 002026 005066 000002 CLR 2(SP) ;CLEAR PROCESSOR STATUS WORD 
1633 002032 000002 RT] ; RETURN 
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26 DD.P11 03-AUG-79 09:18 PROGRAM INITIALIZATION & CONTROL SEQ 0039 
1634 ;eeeeereres 
1635 ‘ 
1636 ; CHAINN--THIS PORTION IS THE COMMON RETURN | 
1637 3 FOR ALL TESTS. | 
1638 : 
1639 seeeeeeeres : 
1640 | 
1641 seeteeeeeerereeeeeres 
1642 002034 CHGD4: 
16435 002034 104024 CHAINN: CKSWR ;SEE IF A *G HAS BEEN GIVEN 
1644 seaekeeeeeeeeeeeeeees 
1645 002036 032737 000001 001104 BIT #1, CNTLSW ;CHECK IF TERMINAL CONTROL 
1646 002044 001405 BEQ 2$ ;BRANCH IF NOT 
1647 002046 005737 001224 TST 10SW >DH11 OR Dull? 
1648 002052 001401 BEQ 1$ :BRANCH IF DH11 
1649 002054 104005 TTYJTL ;WAIT FOR DJ11 TERMINAL CONTROL 
1650 002056 104004 1$: TTYCTL ;WAIT FOR DH11 TERMINAL CONTROL 
roz3 002060 022626 2$: POPSP2 ;CORRECT STACK 
1653 :eeeeeeeeee 
1654 ; 
1655 : IF THE SR BIT 15 IS SET, THE CPU WILL HALT HERE WITH 
1656 : THE TEST NUMBER IN RO. PRESS CONTINUE TO 
1657 ; RUN NEXT TEST 
658 ; | 
659 seeeeeeeeese 
660 
661 002062 005777 177156 CHAINY: TST aSR :CHECK SW REG. 
662 002066 100003 BPL 1$ ;BRANCH IF NO HALT 
663 002070 113700 001106 MOVB RTNNO,RO ; CURRENT TEST NUMBER TO RO 
664 002074 000000 HALT 
665 002076 104017 1$: CLEAN >CLEAN UP 
666 002100 012706 001100 MOV #SPBOT,SP ;SET UP STACK POINTER 
667 002104 104016 FORWD ;SET UP VALUES FOR NEXT TEST 
668 002106 000177 177006 warm Shannan IA ania AR EST GO ID FEST pe 3 


,ReeReaeeee 


:TTYJ-= THIS ROUTINE IS USED WHEN THE DJ11S* ARE UNDER 
TEST, OTHERWISE THE COMMENTS AND INSTRUCTIONS ARE 


: THE SAME AS FOR TTY1. 
‘eeeeeeeere 
002112 022626 TTYu:  POPSP2 sCORRECT STACK 
002114 005737 001222 TTYJA: TST ACTIV “TEST IF ENTRY IS FROM A TEST 
002120 001402 BEQ 1$ “BRANCH IF NOT 
002122 000137 002500 JMP TTY1G 
002126 004737 003106 1$ JSR PC, SCANDJ :LOOK FOR INPUT 
002132 004737 003214 ISR PC SETDJ “SET TERMINAL AS CONSOLE 
002136 000137 002174 IMP TTY1B GO TO CONTROL 


o 
DOONAN EWN —- SO OONG VF WN —-OOOnOUFrwn—0O5@ 


SE EEE II IAI A PS PO POPE PO POPU PO PO 


See? LA56 DH11/DJ11 ie 
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001230 


001222 
002674 


000040 


000036 
001124 


000040 


000036 
001124 


000040 


MACY11 30A(1052) 


TTY 1== a ROUTINE 1S USED WHEN THE DH11°S ARE UNDER TEST. 
THE RESPONSE TO THE MESSAGE ‘SELECT TEST NO."’. RESPO 
MUST BE THE Me ag +e ety TEST NO. FOLLOWED By: 

i Sa 


a 22 SEQUENCE ON TEST 

EXECUTE TEST ONCE 

ALL SPACES ARE IGNORED AND AN ILLEGAL INPUT WILL BE FLAGED 
AND THE RETYPING OF THE ABOVE MESSAGE. 
TERMINAL TO RESPOND IS THE TERMINAL UNDER TEST. 
PRINTER TESTS WILL OUTPUT TO ALL TERMINALS IF SR BIT 
WHILE THE ECHO TESTS WILL RESPOND TO THE PRINTER UNDER rest “omy. 


B 4 
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; eeeeaeeeee 


BY A nay ais 


,eeeeeeeeee 


TTY¥1: 
TTYIA: 


1$: 
23: 


3$: 


4$: 


11$: 


5$: 


POPSP2 
TST 





PC,SCANDH 
PC,SETERM® 
#177600,R0 
RO,TEMPCH 


RO, #40 
$ 


1$ 
#30. ,R0 


TEMPCH,RO 


3$ 
#30. ,R0 


TEMPCH,RO 


NG 
RO.R5 
RO, #40 
6$ 


;CORRECT STACK 
>BE SURE THAT THERE ARE DH11'S 
>BRANCH IF YES 


ive NOT CONTINUE 
ee Pay ar FROM A TEST 


‘LOOK FOR INPUT 

;SET TERMINAL DATA 

ort ig ONLY CHAR 

+ CHECK If — IS A SPACE 

SPACE * aie WAITING FOR NEXT CHAR 


;GOT 
DELAY FOR HALF DUPLEX 


“ERROR IN CHAR 
-OK, SAVE DIGIT IN R5, POS 5-3 


;GO WAIT FOR NEXT CHAR 
; SPACE 
>BRANCH IF NOT A SPACE 
; CHAR 


; » ECHO IT 
>DELAY FOR HALF DUPLEX 


;0K,R5 IS NOW OCTAL TEST NO. 
;GO WAIT FOR TERMINATOR 


: A SPACE 
;BRANCH IF NOT A SPACE 


MACY11 30A(1052) 


aww? ‘on DH11/DJ11 boo te 


ADD .P 


et ee el ee ee ee ed eed eee 
™~ 
S 


el ee ee ee 
™~S™N NINN Or 
WFAA 
Owl wr 


SNS NN 
SOoeoouww~m 


Fwnr—-O0e~ 


SN NN NIN 
NAOSOOS 
SaOnow 


SNS SS SSS SOS SOS OSS OSS SY 


002314 


002602 


104013 


000137 
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000036 
001124 


000040 
000114 


000123 
001124 
000001 
004001 
000401 
001100 
000040 
000020 
000030 
000001 
003246 
000001 


176420 
176434 


177760 
001156 


177600 
000177 


001100 
000001 
000036 


001222 
001224 


002114 
002144 


000056 
001104 
001104 
001104 


001104 
001110 


001222 


001104 


PROGRAM INITIALIZATION & CONTROL 


6$: 


7$: 
8$: 


9$: 


10$: 


TTY1G: 


TTY1H: 
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5$ 
#30.,R0 
TEMPCH,RO 


#B1T5,R0 
RO,#114 


7$ 
TEMPCH , #56 
NG 
#4001,CNTLSW 
#401,CNTLSW 
#SPBOT,SP 
R5,R 

RO, #40 

NG 

RO,#20 

10$ 

RO, #30 

10$ 

ae »CNTLSW 


;SPACE,WAIT SOME MORE 
:GOT ONE , ECHO IT 
:DELAY FOR HALF DUPLEX 


>GET CHAR 


;ECHO CHAR 

; ALLOW mg CASE OR UPPER CASE 
;1S IT AN ° 

BRANCH IF YES 

>NO, IS IT AN “'S" 

BRANCH IF ed 

:NO, IS IT “ * 

NO, ERROROR 

>SET BIT 0 ONLY IN CNTLSW 


:SET BITS 17 AND 0 


;SET BITS 8 AND 0 
; CLEAN UP 
RESET SP 

:TEST NO TO RO 
;CHECK IF TEST NO. IS EQ OR GT 40 
sERROR IF YES 

>CHECK IF THIS IS AN ECHO'TEST 
;BRANCH IF NOT 

;OPTION TEST? 

:ALLOW LOOP ON OPTION TEST 

>YES, FORCE TO ONE TIME ONLY 


* 2 


R :TEST N 
dah anhibioia NXTST: s ADDR OF “TEST TO NXTST 


#1,ACTIV 


R 
#177760,R0 
RO,LINENO 
TTY1G 


R4 ,RO 
#177600,R0 
0,#177 
TTY1G 
#SPBOT,SP 
#1, CNTLSW 
#30.,R0 


RANCH IF ILLEGAL TEST 

SET UP TEST PARAMETERS 

sSET TEST ACTIVE IND 

:GO 10 TEST 

>TEST ACTIVE,CHECK INPUT FROM DH11 

:BRANCH IF NO DATA 

DATA, SAVE IT 

:RIGHT JUSTIFY LINE NO. 

:CLEAR ALL BUT LINE NO. 

* CHECK IF LINE NO. IS SAME AS TEST LINE 
NOT SAME, SEE IF ANY MORE IN SILO 
“LINES ARE THE SAME, GET CHAR 

:SAVE 7 BITS aoe CHAR 


;DELAY FOR HALF DUPLEX 

;OUTPUT MESSAGE 

; CLEAR TEST “eg Sie STATE 
1 OR DH11 


ft 
;WAIT FOR NEXT TEST F 


SEQ 0041 


rm ee 
D 4 
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CZLADD.P11 03-AUG-79 09:18 PROGRAM INITIALIZATION & CONTROL SEQ 0042 
1798 002606 032737 004000 001104 TTy1L: BIT #BIT11,CNTILSW ;CHECK IF LOOP ON TEST 
1799 002614 001401 BEQ 1$ ;BRANCH IF NO LOOP 
1800 002616 000002 RTI :GO LOOP ON TEST 
1801 002620 032737 000400 001104 1$: BIT #B118,CNILSW ;CHECK IF LOOP ON SEQUENCE 
1802 002626 001744 BEQ TTY1H ;BRANCH IF NO 
1803 002630 000137 002062 JMP CHAINY ;GO LOOP ON SEQUENCE 
1804 002634 012700 000036 NG: MOV #30.,R0 ;DELAY FOR HALF DUPLEX 
1805 002640 104003 DELAY 
1806 002642 112700 000077 MOVB #77,R0 7""2"" TO TEMPCH 
1807 002646 104021 ECHO ;PRINT A ? 
Hs 002650 000733 BR TTY1H :TRY AGAIN FROM DH11 
1810 
1811 seeeeeeeeee 
1812 ; 
1813 >FORWARD--THIS ROUTINE TRANSFERS THE 2 ARGUMENTS 
1814 : FROM THE TEST ROUTINE. THEY ARE; 
1815 ; 1- ROUTINE NUMBER 
ab ; 2- ADDRESS OF NEXT TEST 
1818  eeeeeeeeee 
1819 
1820 002652 013705 001110 SFORWD: MOV NXTST,R5 ;ADDR OF NEXT TEST TO RS 
1821 002656 012537 001106 MOV (R5)+,RTNNO :GET NUMBER OF NEXT TEST 
1822 002662 012537 001110 MOV (R5)+,NXTST ;GET ADDR OF FOLLOWING TEST 
1825 002666 010537 001120 MOV R5,CURTST sENTRY POINT TO TEST IN CURTST 
1824 002672 000002 RT] sEXIT 
1825 
1826 
1827 seeker eeee 
1828 ; 
H 534 ;SCANDH = ROUTINE TO SCAN DH CHANNELS LOOKING FOR INPUT 
1831 wrttitiity 
1832 
1833 002674 013701 001230 SCANDH: MOV DHCNT,R1 :COUNT OF DH11°S TO RI 
1834 002700 005037 001154 CLR CNTDH ;CLEAR DH11 POSITION COUNTER 
1835 002704 013700 001134 MOV DHADR ,RO :ADDR OF FIRST DH11 TO RO 
1836 002710 005720 TST (RO)+ sie ; ADDR OF NRCRA 
1837 002712 010037 001140 MOV RO,NRCRA ;SET UP NRCRA ADDRESS 
1838 002716 017700 176216 1$: MOV QNRCRA,RO ;GET NEXT CHAR FROM SILO 
1839 002722 100410 BM] 2% ;BRANCH IF DATA IS PRESENT 
1840 002724 005301 DEC R1 ;DECREMENT COUNT OF DH11'°S 
1841 002726 001762 BEQ SCANDH ;START OVER IF ALL DONE 
1842 002730 062737 000020 001140 ADD W20,NRCRA ;SET UP ADDR FOR NEXT DH11 
1843 002736 005237 001154 INC CNTDH ; INC DH11 POSITION COUNTER 
1844 002742 000765 BR 1$ :GO CHECK NEXT DH11 ON BUS 
1845 002744 010004 2$: MOV RO,R4 ;SAVE LINE NO. AND CHAR 
1846 002746 000207 RTS PC ; RETURN 


CZLADDO LA36 DH11/DJ11 DIAG 
CZLADD.P11 
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001140 
001136 
001142 
001144 
001146 
001150 
001152 
177760 


001154 


000020 
001154 


001156 
176050 


001162 
001160 
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,eeereeraere 


- THIS ROUTINE IS USED TO SET UP THE REGISTER ADDRESSES OF 
THE TERMINAL CURRENTLY UNDER TEST. 


: SETERM 


*“tk&eaeaereere 


SETERM: oa 


2$: 


NRCRA,R1 
-(R1) 


R1,SCR 
(R1)+,(R1)+ 
R R 


R1,BAR 
(R1)+,(R1)+ 
1,SSR 


RO 
#177760,R0 
RO,aSCR 
#0H1100,R1 
— 
#20,R1 
CNTDH 

1$ 
RO,LINENO 
RO 


RO,R1 

(R1) ,ALPR 
#BITTAB,RO 
(RO) ,MASK 


PC 


sseeeeeeeneetiene ee 


:GET ADDR OF CURRENT NRCRA 
tikes ar OF SCR 


ORE SCR ADDR 


4 
:STORE LPR ADDR 
sADD 2 
“STORE CARA ADDR 
: STORE BYCR ADDR 
“STORE BAR ADDR 


;STORE SSR ADDR 

>RIGHT JUSTIFY LINE NO. 

>SAVE ONLY LINE NO. 

;SET UP SCR 

;GET ADDR OF VP TABLE 

>CAL WHICH DH11 IS UNDER TEST 
>BRANCH IF THIS IS THE ONE 
sREPOSITION R1 IN VP TABLE 
>DEC DH11 POSITION COUNTER 


; SAVE LINE NO. 

;CREATE POINTER TO TABLE 

;ADD LINE NO. TO VP TAB PNTR 
>PUT VP INTO LPR 

;CAL PNTR INTO LINE MASK TABLE 
;PUT LINE MASK INTO MASK 

eg ny LINE NO AND CHAR 


SEQ 0044 


et me 


— —_—— 
Ne a EE _ - 


F 4 
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1884 peeeeeeeeee 
1885 : 
H+ ;SCANDJ - ROUTINE TO SCAN CHANNELS LOOKING FOR INPUT 
1888 :ekeeenee 
1889 
1890 003106 013701 001226 SCANDJ: MOV DJCNT,R1 ;COUNT OF DJ11 TO RI 
1891 003112 005037 001154 CLR CNTDH ;CLEAR POS. COUNTER 
1892 003116 012700 160012 MOV #160012,R0 ;ADDR OF FIRST RECV BUFFER TO RO 
1893 003122 012703 017402 MOV #ELTAB,RS ;ADDR OF ELTAB TO R3 
1894 003126 011002 1$: MOV (RO) ,R2 ;GET RECV BUFFER 
1895 003130 100410 BMI 3$ : BRANCH IF DATA 
1896 003132 005301 2$: DEC R1 ;NO DATA, DEC COUNT OF DJil 
1897 003134 001764 BEQ SCANDJ ;START OVER IF ALL CHECKED 
1898 003136 062700 000010 ADD #10,R0 ; ADDR OF NEXT RBUF 
1899 003142 005723 TST (R3)+ ; INCREMENT ELTAB POINTER 
1900 003144 005237 001154 INC CNTDH ; INCREMENT POS COUNTER 
1901 003150 000766 BR 1$ :D0 NEXT DJ11 
1902 003152 010204 3$: MOV R2,R4 ;GET CONTENTS OF RBUF 
1903 003154 000302 SWAB R2 
1904 003156 042702 177760 BIC #177760,R2 ;SAVE ONLY THE LINE NO. 
1905 003162 010237 001156 MOV R2,LINENO ;SAVE LINE NO. 
1906 003166 006302 ASL R2 sLINE NO. *2 
1907 003170 062702 001162 ADD #BITTAB,R2 ;CAL ADDR OF LINE MASK 
1908 003174 011237 001160 MOV (R2) ,MASK ;SAVE LINE MASK 
09 003200 033713 001160 BIT MASK, (R35) ;CHECK IF LINE EXISTS 
003204 001352 BNE 2$ ;BRANCH IF NOT 
003206 110402 MOVB R4,R2 ;RESTORE R2 WITH CHAR 
003210 001750 BEQ 2% ;BRANCH IF NULL 
003212 000207 RTS PC RETURN 


,eeeeeaeeeee 


“SETDJ - THIS ROUTINE IS USED TO SET UP THE PARAMETERS . 
: FOR THE DJ11 TERMMINAL CURRENTLY UNDER TEST. 


ee et ee el el ee el ee ee ee ed 
ooOovooowowvowovowowvowowovnovovowvnovowowowvowvonw 


WWE Ra PU PO PU FO PS PO Po fy se es 
—O DONO Vil Wr O OOnOvirwn—o 


; eee 
003214 010037 001140 SETDJ: MOV RO,NRCRA ;SAVE ADDR FOR READ & TTYIH 
003220 005740 TST -(RQ) 7 CAL ADDR OF CSR 
003222 010037 001236 MOV RO,CSR ADDR OF CURRENT CSR 
003226 022020 CMP (RO) +, (RO)+ CA AL ADDR OF TCR 
003230 010037 001240 MOV RO, TCR >SAVE ADDR OF CURRENT CSR 
003254 005720 TST (RO) + CAL ADDR OF TBUF 
003236 010037 001242 MOV RO, TBUF ;SAVE ADDR OF CURRENT TBUF 
003242 010400 MOV R4 ,RO >GET CONTENTS OF RECV BUFFER AGAIN 
003244 000207 RTS PC : RETURN 


>r 


cane -_ 


ny ee weet co CemEEn ae 
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DD.P11 05-AUG-79 09:18 TEST ADDRESS TABLE SEQ 0045 
1oa% -SBTTL TEST ADDRESS TABLE 

354 003246 006560 PRGTAB: PTO ;DATA PATH TEST 

55 003250 006634 PT >PRINTER CHARACTER TEST 

36 003252 006756 PT2 >NON~PRINTING CHARACTER TEST 

37 003254 007406 PT3 > CARRIAGE RETURN TEST 

38 003256 007526 PT4 sMULTIPLE LINE FEED TEST 

39 003260 007704 PT5 ;SINGLE LINE FEED TEST 

40 003262 010110 PT6 >BACKSPACE TEST 

41 003264 010272 PT7 ;OVERPRINT TEST 

42 003266 010504 PT10 ;PRINTING FREQUENCY SWEEP TEST 

45 003270 010642 PT11 >RIBBON FEED TEST 

44 003272 010674 PT12 >PRINTER BELL TEST 

45 003274 000000 OPEN SPARE FOR ADDITIONAL PRINTER TEST 

46 003276 000000 OPEN SPARE FOR ADDITIONAL PRINTER TEST 

7 003300 000000 OPEN SPARE FOR ADDITIONAL PRINTER TEST 

8 0033502 000000 OPEN >; SPARE FOR ADDITIONAL PRINTER TEST 

a 003304 010764 PT17 sLIFE TEST 

51 003306 011126 E020 > CHARACTER ECHO TEST 

52 003310 011172 E021 sLINE ECHO TEST, FAST RATE 

53 003312 011244 E022 sLINE ECHO TEST, SLOW RATE 

54 003314 011530 E023 : CHARACTER/CODE ECHO TEST 

55 003316 012052 E024 > SELECTIVE PATTERN ECHO TEST 

56 003320 012636 E025 >BELL ECHO TEST 

57 003322 000000 OPEN SPARE FOR ADDITIONAL ECHO TESTS 
oe 003324 000000 OPEN ; SPARE FOR ADDITIONAL ECHO TESTS 
960 005326 012740 TEST30 ; SECONDARY CHARACTER SET OPTION 
961 003330 013122 TEST31 :SELECTIVE ADDRESSING OPTION 
962 003332 013740 TEST32 ;AUTO ANSWER BACK OPTION 
963 003334 014170 TEST33 ;FORM FEED OPTION 
964 003336 014724 TEST34 sHORIZONTAL TAB OPTION 
965 003340 015274 TEST35 >VERTICAL TAB OPTION 
966 003342 000000 OPEN SPARE FOR ADDITIONAL OPTION TESTS 


967 003344 000000 OPEN ; SPARE FOR ADDITIONAL OPTION TESTS 


aa 
_ a 


ADD .P 


003346 


003420 


003422 


003466 


003470 
003472 
003474 


000136 


004114 


003654 


003476 
015736 
015774 
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EMT TRAP DECODER 


-SBTTL EMT TRAP DECODER 


,eeeaaeeeee 


SEMTINT=--SERVICE ROUTINES FOR TRAPS THROUGH LOC. 30 AND 36. 


e 
,eaeeteeeeeee 


EMTINT: 


3$: 


EMTTAB: 


,;eeeeeeeeee 


,; ewan eeeeeeeee eee eee eee eee ee 


MOV 
SUB 


SINRDY 


aSP,-(SP) 


#177001,aSP 
#EMTTAB,aSP 
a(SP),aSP 
-(SP) 
#3$,-(SP) 
a(SP)+ 


CHGD1 ‘*«eeeeeenee 


:GET SAVED PC 
;DECREMENT PC BY TWO 


>CHECK THAT CALL IS WITHIN LIMITS 
>BRANCH IF OK 


;EMT ARGUMENT *2 
;REMOVE 7 MSB 
>FORM EMT RTN ADDRESS 


;CLEAR PSW 
>GO TO EMT ROUTINE 


sMESSAGE OUTPUT ROUTINE 
>COMMON TEST EXIT 

sMESSAGE OUTPUT ROUTINE, MULTI DEVICES 
:DELAY ROUTINE 

;DH11 CONSOLE TERMINAL CONTROL 

:0J11 CONSOLE TERMINAL CONTROL 

> CARRIAGE RETURN, ALL TERMINALS 
CARRIAGE RETURN, CONSOLE TERMINAL 
sLINE FEED ONLY, ALL TERM'S 


>PRINT CHAR, ALL TERMS 

PRINT TEST HEADER 

READ CHAR 

;CARRIAGE RETURN ONLY, ALL TERM'S 


;BINARY TO ASCII CONVERSION 


:CHECK CHAR 
sPRINT CHAR, CONSOLE ONLY 
;CHECK IF READY 


FOUR FILL CHARACTERS 
;CHECK SWITCH REG CONTENTS 
:RE-ENTER POINT FOR CKSWR ROUTINE 


SEQ 0044 


te renee RR ee = 








RE ere: ee 
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ADD.P11 03-AUG-79 09:18 EMT TRAP DECODER SEQ 0047 
$05. seetrerere CHGDS erterererere 
2025 ;FOUR-- THIS ROUTINE WILL PRINT FOUR FILL CHARACTERS 
2025  eaeeeneees 
2026 
2027 seeeneereeeeeenereeese 
202% 003476 CHGD5: 
2029 003476 012705 000004 SFOUR: MOV #4 RS PLACE A FOUR INTO R5 
2030 003502 012700 000006 1$: MOV #6,R0 PLACE THE ACK CODE INTO R6 
2031 003506 104011 + i ; TRANSMIT CODE 
2032 003510 005305 DE R5 ;DEC R5 
2035 003512 101373 BHI 1$ 74 TIMES 
2034 003514 000002 RT] 


2035 ;eeeeaeeeeeeeeeeeeeee 


te ree, eee - 


CZLA 


DD.P 


003516 


003652 


003654 


003714 


ow LA56 DH11/DJ11 
Pil 03-AUG-79 


Soooocooo0oono 
OW OC Un ot oe es 


000002 


000002 


001224 
175420 
001124 


000020 
001160 


001160 
000400 
175416 
175414 


177760 
001156 


175374 
001124 


175260 
001124 


177760 
001156 


177600 
000002 
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001160 


001124 


COMMON ROUTINES 
-SBTTL COMMON ROUTINES 


;eeeaeeeeee 
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SECHO-- THIS ROUTINE ECHOS CHARACTERS ON THE TERMINAL UNDER TEST. 


° 
;eaeeeeaeeeee 


SECHO: 


ECHODJ: 
18: 


2$: 


;eeereeeete 


: INRDY== CHECKS IF ANY INPUT FROM TERMINAL UNDER TEST. 


SINRDY: sey 


RET 
BE IN 


URN VIA PC IF NO CHAR OR VIA PC+2 IF VALID CHAR. 
N BITS 6-0 OF TEMPCH. 


10SW 
ECHODJ 
@BAR , MASK 
SECHO 

RO, TEMPCH 


LINENO,@SCR 
#TEMPCH, eee 


MASK, @BAR 

MASK ,aTCR 

#B1T8,aCSR 
acsR 


@TBUF ,R4 


R4 
#177760,R4 
aac 


RO, aTBUF 
RO, TEMPCH 


CALLING SEQUENCE: 
INRDY 


NO CHAR RE 


VALID 


*exerenke rar 


TURN 
CHAR RETURN 


@NRCRA,RO 
+ aha 


#177760,R0 
RO,LINENO 


SINRDY 
#177600, TEMPCH 
2,aSP 


:DJ11 OR DH11 


;BRANCH IF DJ11 

;CHECK IF OK TO SEND TO DH11 
;NO,WAIT UNTIL OK 

:CHAR INTO TEMPCH 


;SET LINE NUMBER 
:OK,PUT ADDR OF CHAR INTO CARA 
;SET CHAR COUNT TO 1 


;SET SILO OVERFLOW TO 16 
set — BlT 


RETU 

;SET LINE NO. IN TCR 
>START TRANSMITTER SCANNER 
>CHECK IF OK 

;BRANCH IF NOT READY 


:GET CONTENTS OF TBUF 


sRIGHT JUSTIFY LINE NO. 

> SAVE ONLY THE LINE NO. 

;BE SURE IT°S THE LINE UNDER TEST 
;BRANCH IF 


NOT 
:LOAD CHAR TO PRINT 
ai IN TEMPCH 


CHAR WILL 


:GET CHAR 
;BRANCH IF NO CHAR 
SAVE CHAR 


sRIGHT JUSTIFY LINE NO. 

: SAVE ONLY LINE NO. 

>CHECK IF SAME AS LINE UNDER TEST 
;BRANCH IF NOT LINE UNDER TEST 
;SAVE ONLY THE CHAR 

;SET UP RETURN ADDR. 

: RETURN 


SEQ 0048 


’ 
' 
~~ 


cee enn reer nr SS sn sii 





SS 
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ADD .P11 03-AUG-79 09:1 COMMON ROUTINE 
2090 steanertere 
2091 
2092 :READ=- THIS ROUTINE READS INPUT FROM THE TERMINAL UNDER TEST ONLY 
2093 IF SW15 IS SET, OTHERWISE ALL TERMINALS ARE SCANNED FOR INPUT 
2094 : AND TERMINAL WHERE CHARACTER IS RECEIVED IS SET AS THE 
2095 ; TERMINAL UNDER TEST. 
2096 ° 
2097 seeeeereeee 
2098 
2099 003716 032777 020000 175320 S$READ: BIT #B1115,aSR :SWi3 SET? 
2100 003724 001413 BEQ 1$ ;BRANCH IF NOT 
2101 003726 017700 175206 MOV @NRCRA,RO :GET CHAR 
2102 0037352 100371 RPL SREAD ;NO CHAR, WAIT FOR ONE 
2103 003734 010004 MOV RO,R4 :VALID DATA 
2104 003736 000304 SWAB R4 sRIGHT JUSTIFY LINE NO. 
2105 003740 042704 177760 BIC #177760,R4 ;SAVE ONLY LINE NO. 
2106 003744 020437 001156 CMP R4,LINENO ;CHECK IF SAME AS LINE UNDER TEST 
2107 003750 001362 BNE SREAD ;BRANCH IF NOT 
2108 003752 000424 BR 4$ : CONT INUE 
2109 003754 010146 1$: MOV R1,-(SP) :SAVE R1 
2110 003756 010246 MOV R2,-(SP) 
2111 003760 010346 MOV R3,-(SP) 
2112 003762 010446 MOV R4,-(SP) 
2115 003764 005737 001224 TST 10SW :DH OR DJ? 
2114 003770 001005 BNE 2$ :BRANCH IF DJ 
2115 003772 004737 002674 JSR PC,SCANDH ;LOOK FOR INPUT 
2116 003776 004737 002750 JSR PC,SETERM ;SETUP TERMINAL UNDER TEST 
2117 004002 000404 BR 3$ ; CONTINUE 
2118 004004 004737 003106 23: JSR PC,SCANDJ ;LOOK FOR DJ INPUT 
2119 004010 004737 003214 JSR PC,SETDJ ;SETUP DJ UNDER TEST 
2120 004014 012604 3$: MOV (SP)+,R4 sRESTORE REGS 
2121 004016 012603 MOV (S$P)+,R3 
2122 004020 012602 MOV (SP)+,R2 
2125 004022 012601 MOV (SP)+,R1 ; 
2124 004024 010037 001130 4$: MOV RO,PCHAR ;SAVE CHAR WITH PARITY BIT 
2125 0040350 113737 001130 001127 MOVB PCHAR,PARITY+1 ;GET CODE FOR PARITY CHECK 
2126 004036 042737 177400 001130 BIC #177400,PCHAR ;CLEAR UNWANTED BITS 
2127 004044 042700 177600 BIC #177600 ,R0 :SAVE ONLY THE CHAR 
2128 004050 010037 gotige MOV RO, TEMPCH 
2129 004054 012700 000011 MOV wii, RO ;SET SHIFT COUNT 
2130 004060 042737 000377 001126 BIC a377, PARITY ;CLEAR PARITY FLAG 
2131 004066 005300 5$: DEC RO :DECREMENT SHIFT COUNT 
2132 004070 001406 BEQ 6$ sEXIT IF DONE 
2133 004072 106337 001127 ASLB PARITY#1 sROTATE CODE 
2134 004076 103373 BCC 5$ : CONT INUE 1F CARRY BIT WAS A ZERO 
2135 004100 105137 001126 COMB PARITY ;COMPLIMENT PARITY FLAG IF BIT WAS ONE 
2136 004104 000770 BR 5$ ; CONTINUE 
2137 004106 013700 001124 6$: MOV TEMPCH,RO sRESTORE RO 
2138 004112 000002 RTl > RETURN 


SL a EN eS. 
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004172 
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COMMON ROUTI 
20000000 
; TYPE== A COMMON ROUTINE USED TO TYPE MESSAGES ON ee 


UNDER TEST ONLY. 


THE NULL CHARACTER TERMINA 


THE MESSAGE. CALLED THROUGH AN EMT TRAP. 


CALLING SEQUENCE 
TYPE 


MESG ; ADDRESS OF MESSAGE 


TTT TTT TTT 


MOV aRi,R1 
1$: MOVB (R1)+, RO 
BMI 2$ 
BNE 3$ 
RTI 
2$: SCRLF 
R 1$ 
3$: ECHO 
R 1$ 
+ AXXAKAAAKK 


>GET POINTER TO ADDR. OF MESG. 
> SET UP RETURN ADDRESS 
;ADDR. OF MESG TO RI 

:GET CHAR 

;BRANCH IF WANT AUTO CR-LF 
sPRINT CHAR IF NOT NULL 
;EXI1T ON NULL CHAR 

: SEND A CRLF 

;GET NEXT CHAR 

;OUTPUT CHAR 

;GO GET NEXT CHAR 


;TYPM-=-RULT TYPE-A COMMON ROUTINE TO OUTPUT 


MESSAGE ON ALL DHI11S. 


THIS ROUTINE IS 


USED BY 
THE PRINTER TESTS TO TYPE HEADINGS. 


CALLING SEQUENCE; 
TYPEM 
MESGAD 


* AXKXXXAXKN 
TYPM: MOV asP,Ri 
DD —#2,aSP 
MOV aRi,R1 
1$: MOVB (R1)+, RO 
BM] 2$ 
BNE 3$ 
RT] 
2$: CRLF | 
BR 1$ 
3$: PRINTC 
HW 1$ 


sADDRESS OF MESSAGE 


;GET POINTER TO ADDR OF MESG 


;SET UP RETURN ADDRESS 
ey toa MESG TO R1 


;BRANCH IF WANT AUTO CR-LF 
>CONTINUE IF NOT NULL 
; RETURN 10 CALLER 


:GO GET NEXT CHAR, 


SEQ 0050 


Serene 
mM 4 
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~m 
DOOD DOOMMDS 
WEWNODOo wee 


MMMM MPM PNM Popo nono no nror 
Oo DOOnoO 
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;eeereneere 


A ee 


:DELAY=-A COMMON ROUTINE TO DELAY PROCESSING 
A GIVEN NUMBER OF MSEC. 


MOV 
DELAY 


; MACHINE 


LOOP: DEC R1 
; BNE LOOP 
° IME= 
; SET TIMER 
7 .0.0.0.0.0.6 0.0! 
DLY: MOV 
1$: MOV 

$ DEC 

BNE 
DEC 
BNE 
MOV 
RT] 


CALLING SEQUENCE; 
#5,R0  ;RO CONTAINS THE NUMBER OF MSEC DELAY DESIRED 


05810 35840 
3.4 99 
e.2 1.76 
2,008 2.79 
251 554 
R1,-(SP) 
TIMER,R1 

R1 

2$ 

RO 

1$ 

(SP)+,R1 


THE DELAY IS EFFECTED BY THE EXECUTION OF THE LOOP; 
1$: DEC RI 
BNE 1% 


SINCE THE EXECUTION TIMES OF THE PDP11 LINE 3th VARY FROM 

MACHINE TO MACHINE, THE VALUE AT SYMBOLIC LOCATION 

TIMER’ MUST BE CHANGED TO THE APPROPRIATE VALUE AS SHOWN BELOW 

BEFORE STARTING THE DIAGNOSTIC. 
FOR AN PDP-11/40 (TIMER = 554) 


— IS INITIALIZED 


15820 11/45 : 11/70 

BIPOLAR MOS CORE 
2.5 50 -90 
2.6 .60 .98 1.13 
4.9 - 9OUSEC 1.49USEC 
314 2127 1237 755 
;SAVE RI 


>MOV IMSEC LOOP CNT TO R1 
;DECREMENT COUNT 

;BRANCH IF NOT ZERO 

;DEC NO. OF MSEC DELAY 
;DELAY AGAIN IF NOT ZERO 
ALL DONE RESTORE R1 


SEQ 005! 


2.035USEC 


ee - 


N 4 
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) 
DD.P11 05-AUG-79 09:1 OMMON RO SEG 0052 


2224 peeeeeeeees 
2225 ; 

2226 :PFAIL--POWER FAIL ROUTINE 

2227 ; SAVE ALL REGISTERS AND SET RESTART ADDRESS | 
$556 : INTO LOCATION 24 | 
2230 ;RESTART--POWER FAIL RECOVERY 
tt : RESTORE ALL REGISTERS AND GO TO START 

2233 ‘weeeeeenes 

2254 

2235 004216 010046 PFAIL: MOV RO,-(SP) 

2236 004220 010146 MOV R1,-(SP) 

2237 004222 010246 MOV R2,-(SP) 

2258 004224 010346 MOV R3,-(SP) 

22359 00¢226 010446 MOV R4,-(SP) 

2240 0642350 010546 MOV R5,-(SP) 

2241 004232 013746 000024 MOV 24,-(SP) 

2242 0046236 010637 004252 MOV SP, SAVR6 ;SAVE STACK POSITION 

2243 004242 012737 004254 000024 MOV #WRESTRT,24 sSTORE RESTART ADDRESS 

2244 004250 000000 HALT 

2245 

2246 

2247 004252 000000 SAVR6: .WORD 0 

2248 

2249 

2250 004254 104002 RESTRT: TYPEM ;TYPE POWER MESG 

2251 004256 004310 1$ 

2252 004260 013706 004252 MOV SAVR6,SP ;RESTORE STACK POINTER 

2253 004264 012637 000024 MOV (SP)+,24 sRESTORE PFAIL ADDRESS 

2254 004270 012605 MOV (SP)+,R5 

2255 004272 012604 MOV (SP)+,R4 

2256 004274 012603 MOV (SP)+,R3 

2257 004276 012602 MOV (SP)+,R2 

2258 004300 012601 ON RT 

2259 004302 012600 MOV (SP)+,R0 

re 004304 000137 001302 JMP STARTX 

2262 004310 050200 053517 051105 1$: -ASCIZ <ACRLF>/POWER/<ACRLF> 

sso; 004316 000200 ieee 


———— 
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004320 


004402 
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004406 
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004424 


004450 
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000002 


000000 
000000 
000000 


000001 
001750 
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000060 
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004406 


000144 


; eeeeaeeeee 
:BINARY TO ASC11 CONVERSION (1 TO 5 ASC11 CHARACTERS) 
“CALLING SEQUENCE 


SBTASC: 


1$: 
2%: 


3$: 


CNVCTR: 


DIGIT: 


TENPWR: 
ADTENP: 


BTOASC 


;eaeaeeeene 


MOV 
ASL 


» WORD 
. WORD 
- WORD 


. WORD 


, wearers 


TESTC== CHECKS FOR INPUTTED OCTAL DIGIT 
BETWEEN A G AND A 


"eer enee®e 


STESTC: 


MOV 
P 


ADDRESS OF LOC TO STORE FIRST aaa 


B 5 
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INTO RO 


BINARY NUMBER TO BE CONVERTED INTO 
NUMBER TO BE CONVERTED AS A POWER OF TEN INTO R2 


R2,CNVCTR 
R2 
#WADTENP,R2 


-(R2), TENPWR ; POW 


DIGIT 
TENPWR ,R1 
3% 


DIGIT 
2$ 


TENPWR RI 
#60 ,DIGIT 


DIGIT, (RO)+ 


CNVCTR 
1$ 


—_- Ooo 
° 


TEMPCR ,RO 
RO, #60 


1$ 
RO, #67 
1$ 


#2,aSP 
#177770,R0 


,10.,100. 


;SAVE TEN POWER 
sR2*2 


sCALCULATE ADDRESS OF girth TEN POWER 


WER OF TEN VALUE TO TENPWR 

;CLEAR CURRENT DIGIT 

;SUBTRACT TEN POWER FROM BINARY VALUE 
;BRANCH IF END 


sRESTORE SUBTRACTED VALUE 
sCONVERT (DIGIT) TO ASCII 

;PUT ASCI] CHAR INTO USER BUFFER 
>FINISH ALL CHARS CALLED FOR 
;BRANCH IF NOT FINISHED 

; RETURN 


>CONVERSION CHARACTER COUNT 
>CONVERTED CHARACTER 
>CURRENT TEN POWER 


,1000.,10000. 


A 7 INCLUSIVE 


;GET CHAR 
>CHECK IF NUMERIC AND EQ ,GT 0 
:BRANCH ERRO 


;SET UP RETURN ADDRESS 
:SAVE ONLY THE DIGIT 
;NORMAL RETURN 


nn me oe + ee 


SEQ 0055 


= ee 


cy 


™~ oO 
To ~~ 
>r 
— > 
or Br | 
‘' 
vO 
— 


. 2 


FW —- O OO? VF wn —-$ O OOaGUWr 


— en 


004456 
004462 
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004472 


004474 
004476 
004502 
004504 


004506 
004512 
004514 


004516 


004570 
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104014 
000002 
012700 


104011 
000002 


104002 


000002 


DIAG 
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000015 
000012 


000012 


000015 


001106 


177770 
000060 


001106 
177770 
000060 
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; eeaeeereree 


:SCRLF-- A COMMON ROUTINE TO OUTPUT A CR AND LF TO 
: THE TEST TERMINAL ONLY. 


i eeeeerenes 
#15,R0 
#12,R0 


;SEND A CR 
sWAIT UNTIL PRINTER IS READY 
;SEND A LF 


SSCRLF: MOVB 
ECHO 
MOVB 


ECHO 
RTI ;RETURN TO CALLER 
| AXKKAK KKK 
“CRLF-- ROUTINES TO SEND A CR AND/OR LF TO ALL TERMINALS. 
| AXKKAK KKK 
SCRLF: CR :SEND CR 
$LF: MOV #12,RO0 “LF TO RO 
PRINTC “SEND IT 
RTI : RETURN 
$CR: MOV #15,R0 :CR TO RO 
PRINTC “SEND IT 
RTI = RETURN 


Seen eeee 


“ROUTINE TO PRINT TEST HEADER 


¢ 
;eereenet 


SPRHDR: TYPEM ;PRINT MESG 


HDRMASG 


MOV RTNNO,RO ;GET TEST NUMBER 
ASR RO :GET FIRST DIGIT 
ASR RQ 

ASR RO 

BIC #177770,R0 MASK FIRST DIGIT 
ADD #60,R0 MAKE ASCII 
PRINTC PRINT IT 

MOV RTNNO,RO ;GET TEST NUMBER AGAIN 
BIC #177770,R0 MASK LAST DIGIT 
ADD #60,RO MAKE ASCII 
PRINTC ;PRINT IT 

CRLF ; CRLF 

Lf ;BLANK LINE 

RTI ;RETUR 


SEQ 0054 


ee 


— 
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;eeaeeeeeee 


: PRINTC=-THIS ROUTINE 1S USED TO DRIVE EACH OF THE EXISTING TERMINALS 
; ON EACH OF THE EXISTING DH11°S( AS DEFINED BY THE SET UP te ELTAB). 
: If IN THE MAINTENANCE MODE SR BIT 13 CONTROLS WHETHER OR NO 

ALL DH11°S ARE DRIVEN OR ONLY THE TERMINAL vite TEST. SET. 


BIT 13 DOWN TO DRIVE ALL TERMINALS ON ALL DH11' 


- SET BIT 13 UP TO 


: DRIVE ONLY THE TERMINAL UNDER TEST 

; EACH TERMINAL IS DRIVEN ONE CHARACTER AT A TIME. 

; PRINTC WILL LOOP WAITING FOR THE FIRST TERMINAL TC BE READY 
ENTER WITH CHAR TO PRINT IN RO. 


. 
,eaeaeaeeaeee 


CHGD10: 

SPRTC: MOV RO,-(SP) 
MOV R1,-(SP) 
MOV R2,-(SP) 
MOV R3,-(SP) 
MOV R4,-(SP) 
MOV R5,-(SP) 
TST W 
BEQ % 
JMP PRINTJ 

1$ TST DHCNT 
BEQ 12$ 
BIT #B1113,aSR 
BEQ 6$ 
ECHO 
INRDY 


1 
seeeeeeeeee CHGDID reeererere 


CMP TEMPCH #7 
20% 


CKSWR 
BR 12% 

, *eeereeeeee 

20$: CMP TEMPCH,#177 
BEQ 2% 
JMP ENDITR 

2$: CMP RTNNO,#24 
BNE 3$ 
MOV WTERM,14(SP) 
BR 12$ 

3$: CMP RTNNO,#21 
BNE 4$ 
MOV #E021B,14(SP) 
BR 12$ 

4$: CMP RTNNO,#22 
BNE 5$ 
MOV #E022B,14(SP) 
BR 12$ 

5$: JMP TTY1H 

18$: JMP ENDIT 

6$: MOV DHADR,SCR1 
MOV WELTAB,RS 


R5 
OR DJ11? 


>GO TO DJ11 ROUTINE 

ANY DH11'S PRESENT? 

;RETURN IF NONE 

;CHECK IF SR BIT13 IS SET 
>DRIVE ALL lac IF NOT SET 


: INPUT, 
s1f NOT, 


;OUTPUT CHA 
> CHECK * ca INPUT 
>NO,RETUR 


CHECK IF A “*G 
H 


BRANC 
:GO TO SOFT SWITCH REG INPUT 
sRETURN TO EXIT TEST PROPERLY 


> INPUT,CHECK IF A RUBOUT 


:NO RUBOUT, RETURN 

;CHECK IF TEST 24 

;BRANCH IF NOT 

>SET RETURN ADR 

>RETURN TO EXIT TEST PROPERLY 
sTEST 21? 


: BRANCH 


H IF NOT 
;SET RETURN TO EXIT TEST PROPERLY 
: RETURN 


; TES! de? 

;CONTINUE IF NOT 

SET RETURN ADR 

; RETURN TO EXIT TEST PROPERLY 
7GO WAIT 


> INIT ADDR OF FIRST DH11 
: INIT ADDR TO EXISTING TERM TAB 


SEQ 0055 


terete A meee DH11/DJ11 DIAG 
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004776 
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005120 


005132 
005134 


012704 


023727 
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016402 
001250 
000001 
001232 
000012 
174174 


000004 


174132 


174124 
177600 


001124 


001124 
001106 
012224 
001106 
011234 
001106 
011314 


002540 
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001106 
001124 
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001234 
174156 
001234 
001234 
001124 
001124 


000007 


000177 
000024 
000014 
000021 
000014 
000022 
000014 


0000035 
000024 
001114 


001234 
001234 


7$: 


8$: 
9$: 


sss. 


e 3 
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19$: 


10$: 


11$: 


168: 


MOV #DH1100,R4 

MOV DHCNT,R3 

MOV #1,R2 

CLR R1 

MOV SCR1,SCR2 

ADD #12,SCR2 

BIT @R5,R2 

BNE 17$ 

BIT aSCR2,R2 

BNE 

ADD 4,SCR2 

MOVB #26, aScR2 

SUB #16,SCR2 

MOVB R1,aSCR2 

ADD #2,SCR2 

TST aSCR2 

BPL 16% 

MOV @SCR2,TEMPCH 

BIC #177600, TEMPCH 
CHGD10 «eeetereee 

CMP TEMPCH,#7 

BNE 19% 

CKSWR 

BR 12$ 

CMP TEMPCH, #177 

BNE 14% 

CMP RTNNO ,#24 

BNE 10$ 

MOV #TERM,14(SP) 

BR ENDITD 

CMP RTNNO, #21 

BNE 11$ 

MOV #E021B,14(SP) 

BR ENDITD 

CMP RTNNO,#22 

BNE 138 

MOV #E022B,14(SP) 

BR ENDITO 

JMP TTY1H 

CMP TEMPCH, #3 

BNE 15$ 

CMP RTNNO ,#24 

BEQ ENDITD 

MOV TEMPCH,REPT 

MOV RO,-(SP) 

MOV #30. ,R0 

DELAY 

MOV be RO 

ADD CR2 

MOV (Ra) ,@SCR2 

ADD /SCR 2 

MOV R1, ,= (SP) 

ASL R1 

ASL R1 

ASL R1 


IN 
; IN 
> IN 


IT ADDR TO VP TAB 
1T DH11 COUNT 
1T CURRENT LINE NO. 
SET UP CURRENT CHANNEL NUMBER 

T SCR2 = ADDR OF CURRENT DH11 
SET SCR2 = ADDR OF BAR 


:TEST IF TERMINAL EXISTS 


>BRANCH IF NO TERMINAL 
;TEST IF OK TO SEND 

> TEST AGAIN 

;ADDR OF SILO STATUS 
;SET SILO OVERFLOW TO 16 


;SET SCR2 AS ADDR OF SCR 


:PUT CHANNEL NO. INTO SCR 
Ak CHAR BUF AD 
Y INPUT? 


CONTINUE IF NONE 


GET C 


MASK CHAR 


>CHECK IF “*G 

;BRANCH IF NOT “G 

:GO TO SOFT SWITCH REG INPUT 
sRETURN TO EXIT TEST PROPERLY 


;CHECK IF RUBOUT 


‘ieee S IF NOT RUBOUT 
TEST 24? 
BRANCH IF NOT 
>SET RETURN ADR 
reste TO EXIT TEST PROPERLY 


;BRANCH IF NOT 

>SET RETURN ADR 

;RETURN TO EXIT TEST PROPERLY 
TEST 22? 


;BRANCH IF NOT 

;SET RETURN ADR 

:RETURN TO EXIT TEST PROPERLY 
; CONTROL 

>CHAR = CONTROL-C ? 

s CONTINUE IF NOT 

TEST 24? 

SEXIT IF TEST 24 

; SAVE os FOR TESTS 21 AND 22 


> SAVE R 
>DELAY FOR HALF DUPLEX 


sRESTORE RO 


;SCR2 EQ ADDR OF LPR 
;STORE VP INTO LPR 

:ADD 2 TO ADDDR IN SCR2 
;SAVE R1 

;FIND TABLE POINTER 

; TO STORE CHAR 

:FOR THIS CHANNEL 


SEQ 0056 


aan 


een sr tain ete ee 
5 
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001234 
173660 
001234 


001232 


001114 


000005 
000024 


17$: 


ENDITR: 
ENDITD: 


ENDIT: 


1$: 


R1 
R3 


RO, (R1) 
R1,aSCR2 
(SP)* it 


aioe ,aSCR2 
#2,SCR2 


nar _ 


TEMPCH,REPT 
g 0 


ee 


(SP)+,R5 
(SP)+,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,Ri 
(SP)+,RO 
iat 


emnee 
WEO24R, (SP) 


RI 
#CHARAC-1,R1 


> STORE CHAR 

;ADDR OF CHAR INTO CARA 
RESTORE R1 

;ADD 2 TO ADDR IN SCR2 
aH CHAR COUNT EQ 1 


BAR 
> INC PTR TO VPTSB FOR NEXT TERM 
: INCREMENT CHANNEL NO. 

;ROTATE LINE NO. MASK TO NEXT POS. 
;D0 NEXT TERM. ON SAME DH11 

:DEC COUNT OF DH11'S 

:BRANCH IF ALL DONE 


;SET UP FOR NEXT DH11 
:INC PTR TO EXISTING TERM. TBL. 
>DO NEXT DH11 


;SAVE CHAR FOR TESTS 21 & 22 
;DELAY FOR HALF DUPLEX 


;CHAR = CONTROL C ? 
sEXIT IF NOT 

TEST 24? 

EXIT IF NOT 

YES, SET RETURN ADR 
> RETURN 


SEQ 0057 


LL RT te eae man 





LAL LLL LL LLL LL LETT A LE ett —_—_—-____- _— 
a — _-——_- 
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2519 seeereerere 

2520 : 

2521 ;PRINTJ--THIS ROUTINE 1S USED TO DRIVE EACH OF THE EXISTING TERMINALS 
2522 ON EACH OF THE EXISTING DJ11S° (AS DEFINED BY THE SET UP IN 
2523 : “ELTAB'’). If IN THE MAINTENANCE MODE, SR BIT 13 CONTROLS 
2524 WHETHER OR NOT ALL DJ11S" ARE DRIVEN OR ONLY THE TERMINAL 
2525 UNDER TEST. EACH TERMINAL IS DRIVEN ONE AT A TIME. PRINTJ 
2526 : WILL LOOP WAITING FOR THE FIRST ONE TO BE READY TO SEND 
2527 ENTER WITH CHARACTER TO SEND IN RO. 

2529 ; eae eaeee 

2530 

2531 005474 005737 001226 PRINTJ: TST DJCNT sANY Dul1S' 

2532 005500 001754 BEQ ENDIT "NO, RETURN 

2533 005502 032777 020000 173534 BIT #B1113,aSR “CHECK IF SR 13 1S SET 

2534 005510 001441 BEQ 4$ :CLEAR, DRIVE ALL TERMIINALS 
2535 005512 104021 ECHO :OUTPUT CHAR TO TERM UNDER TEST 
2536 005514 104022 INRDY “CHECK IF ANY INPUT 

2537 005516 000745 BR ENDIT :NO, RETURN 

2538 005520 023727 001124 000177 CMP TEMPCH, #177 :YES CKECK IF A RUBOUT 

2539 005526 001333 BNE ENDITR “NO, RETURN 

2540 005530 023727 001106 000024 CMP RTNNO, #24 “TEST 24? 

2541 005536 001004 BNE 1$ “BRANCH IF NOT 

2542 005540 012766 012224 000014 MOV #TERM,14(SP) |: SET RETURN ADR 

2543 005546 000726 BR ENDITD “RETURN TO EXIT TEST PROPERLY 
2544 005550 023727 001106 000021 1$: CMP RTNNO, #21 “TEST 21? 

2545 005556 001004 BNE 2$ “BRANCH IF NOT 

2546 005560 012766 011234 000014 MOV #E021B,14(SP) :SET RETURN ADR 

2547 005566 000716 BR ENDITD :RETURN TO EXIT TEST PROPERLY 
2548 005570 023727 001106 000022 2%: CMP RTNNO, #22 “TEST 227 

2549 005576 001004 BNE 3$ “BRANCH IF NOT 

2550 005600 012766 011314 000014 MOV WE022B,14(SP) :SET RETURN ADR 

2551 005606 000706 BR ENDITD :RETURN TO EXIT TEST PROPERLY 
2552 005610 000137 002540 3$: JMP TTY1H "GO WAIT 

2553 005614 012737 160010 001232 4$: MOV #160010,SCR1 —- : INIT ADDR OF FIRST Dull 

2554 005622 012705 017402 MOV WELTAB,RS :INIT ADDR OF EXISTING TERM TAB 
2555 005626 013703 001226 MOV DJCNT.R3 :COUNT OF DU11S' TO R3 

2556 005632 012702 000001 5$: MOV #1,R2 : INIT CURRENT LINE NO. 

2557 005636 005001 CLR RI : INIT CURRENT CHANNEL NO. 

2558 005640 013737 001232 001234 6$: MOV SCR1,SCR2 | ~—«s SET -SCR2=ADDR OF CURRENT Du11 
2559 005646 062737 000004 001234 ADD #4 ,SCR2 :SCR2 1S ADDR OF TCR 

2560 005654 031502 BIT aR5,R2 “TEST IF TERMINAL EXISTS 

2561 005656 001124 BNE 15$ :BRANCH IF NO TERMINAL 

2562 005660 010277 173350 MOV R2,aSCR2 -YES,SET LINE NO. IN TCR 

2563 005664 162737 000004 001234 SUB #4 ,SCR2 “SCR2 1S NOW ADDR OF CSR 

2564 005672 105777 173336 TSTB = @SCR2 *CHECK FOR INPUTS 

2565 005676 100072 BPL 13$ ;CONTINUE IF NO INPUT 

2566 005700 062737 000002 001234 ADD #2,SCR2 :SET CHAR BUF REG ADR 

2567 005706 017737 173322 001124 MOV @SCR2,TEMPCH § :GET INPUT CHAR 

2568 005714 042737 177600 001124 BIC #177600, TEMPCH =MASK CHAR 

2569 005722 023727 001124 000177 CMP TEMPCH #177 “CHECK CHAR 

2570 005730 001032 BNE 11$ “BRANCH IF NOT RUBOUT 

2571 005732 023727 001106 000024 CMP RINNO, #24 -TEST 24? 

2572 005740 001004 BNE 7$ *BRANCH IF NOT 

2578 005742 012766 012224 000014 MOV #TERM,14(SP) SET RETURN ADR 

2574 005750 000625 BR ENDITD *RETURN TO EXIT TEST PROPERLY 


oes - severe tn ee . 


ee eS oe ire 


remo a ee eee 


or 


cohen Ace DH11/DJ11 DIAG 


CZLADD .P 


MIrore 

PAPA APAAAAAR UIA 
Sut oro. 
ONO UWF WR OO O~AS 


© Oc 
—Oo 


005752 


006156 


006160 


023727 


000625 


000400 
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001106 
011234 
001106 
011314 


002540 
001124 


001106 
001124 
000036 
000002 
000400 
173136 


000006 
173122 


177760 


173104 


005432 
000010 
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COMMON ROU 


000021 
000014 
000022 
000014 


000003 
000024 
001114 


001234 
173142 


001234 


001232 


7%: 
BS: 
9$: 
10$: 
11$: 


12$: 


15$: 


16$: 


CHARAC : 


-BLKB 





RTNNO,#21 
8$ 


#E021B,14(SP) 
ENDITD 


RTNNO,#22 
10% 


#E022B,14(SP) 
ENDITD 


TTY1H 
TEMPCH, #5 
12% 
RTNNO,#24 
9$ 

TEMPCH REPT 
RO,-(SP) 
#30. RO 
(SP)+,RO 


#2,SCR2 
#B1T8,aSCR2 
ascRe 


sREADY, 


: TEST 21? 
:BRANCH IF = 
7 SET RETURN ADR 

weet aoe EXIT TEST PROPERLY 


TEST 
BRANCH 1F NOT 
7SET RETURN ADR 
: RETURN TO EXIT TEST PROPERLY 
3G0 TO CONTROL 
;CHAR = CONTROL-C ? 
: BRANCH IF NOT 
sTEST 24? 
;YES, RETURN TO TEST 
: SAVE a FOR TESTS 21 8 22 


E RO 
:DELAY FOR HALF DUPLEX 


sRESTORE RO 
sRESET PROPER ADR FOR PRINT 
;START TRANSMITTER SCANNER 

> CHECK STATE R 

>BRANCH IF XMITTER NOT READY 
SCR2 NOW=ADDR OF TBUF 
>GET CONTENTS OF TBUF 


> SAVE ONLY LINE NO. 
;BE SURE SCANNER IS ON CORRECT LINE 
:BRANCH IF NOT, AIN 

;LOAD TBUF WITH CHAR 

; INCREMENT LINE NO. 
>SET LINE NO. TO NEXT POSITION 
:1f CARRY IS CLEAR DJ11 IS DONE 
sDEC COUNT OF DJ11S 

>BRANCH IF NOT DONE 


> DONE 

SET SCR1 TO ADDR OF NEXT DJ11 
;SET RS TO NEXT ELTAB ENTRY 
:GO DO NEXT DJ11 


LOLOL A EI ttt —_— 


H § 
035-AUG-79 09:23 PAGE 59 
TINES 


OF CS 


TRY AG 


>CHARACTER STORAGE FOR OUTPUT 


SEQ 0059 


en en ear SE 


ADD .P 


006560 


006632 


, ————— ; pincenieeteimmesiaceii 
CZLADDO LA36 dbase t Fae 
CZL P11 18 


05-AUG-79 09: 


000000 


000763 


025125 
000020 


001112 


5 
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PRINTER TESTS 


-SBTTL PRINTER TESTS 


s KAAKA AAA 


:PT0 -- PATA PATH TEST~--FOUR LINES OF ALTERNATING 


: AND "‘U"’ ARE PRINTED, OUT TO THE GIVEN PAPER 
: WIDTH THE PATTERN WILL APPEAR AS FOLOWS. 
: *UeUtUeUeUeY 
: UtUeUEUrUeUe 
: eUtUtUeUeUeU 
: UtUtUeUtUeue 
= AXKKKKK KX 
P10: 0 : TEST NUMBER 
PTI “NEXT TEST 
PRTHDR >PRINT TEST HEADER 
TYPER >PRINT COLUMN MESG 
H 
1$ MOV #'Ut R3 :SET FIRST CHAR PAIR 
MOV #16. .R2 >SET LINE COUNT 
2$ MOV R3,RO >SET CHAR PAIR 
MOV WIDTH,R1 >SET COLUMN COUNT 
3$ PRINTC “PRINT CHAR 
SWAB —s. RO >SET NEXT CHAR 
DEC RI >DEC COLUMN COUNT 
BNE 3$ >FINISH LINE 
SWAB RS >SET NEXT START CHAR 
CRLF sCR-LF 
DEC R2 :DEC LINE COUNT 
BNE 2$ :FINISH TEST 
CHAIN :ALL DONE, EXIT 
R :REPEAT TEST 


SEQ 0060 


LLL LE LL LC TC TL a AE ES tt ET etree 


CZLADDO LA56 DH11/DJ11 DIAG 
CZLADD.P11 


006634 
36 


006722 
006724 


006726 
006732 
006734 
006736 


006740 
006744 


006746 
006752 
006754 


000001 


000746 


012704 
104011 
005304 
001375 


012700 
104011 


012700 
104011 
000207 
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000040 
000100 
000140 


006726 


006726 
000003 


000200 


000003 


000040 


000040 
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Ss ~st 


J § 
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0000000008 
:PT1 -=- PRINTER CHARACTER TEST <== PRINTS ALL PRINTABLE CHARACTERS 
0000000008 
PT: 1 ; TEST NUMBER 
PT2 sNEXT TEST 
PRTHDR :PRINT TEST HEADER 
18: MOV #40,R1 ;SPACE TO RI 
MOV #100,R2 ; 
MOV #140,R5 s\ TO R 
2$: MOV R1,R0 sFIRST CHAR TO RO 
JSR PC,SPSP ;SEND TWO SPACES 
MOV RO :SECOND CHAR TO RO 
JSR PC,SPSP ;SEND TWO SPACES 
MOV RS ;CHAR COUNT TO RG 
MOV R3,R0 THIRD CHAR TO RO 
3$: PRINTC :PRINT CHAR 
DEC R4 s THREE TIMES ? 
BNE 3$ ;BRANCH IF NOT 
CRLF : CRLF 
CMPB (R1)4+,(R2)¢ :SET NEXT CHARS 
TSTB (R3)+¢ 
CMP R3,#200 ;CHECK IF ALL DONE 
BLO 2$ ;BRANCH IF NOT 
CHAIN sEXIT TO NEXT TEST 
R 1$ sREPEAT TEST 
SPSP: Vv #35,R4 :;SET PRINT COUNT 
1$: PRINTC ;PRINT CHAR : 
DEC R4 :DEC PRINT COUNT 
BNE 1$ sFINISH CHAR 
SP2: MOV #40,R0 :SPACE TO RO 
PRINTC sPRINT FIRST SPACE 
SPC: MOV #40,R0 ;SPACE TO RO 
PRINTC | :PRINT SECOND SPACE 
RTS PC ;RETURN 


SEQ 006! 


2 we Se 


-_ —— a+ some 
ee — ne SO Se ee 


Oe 


CZLADDO LAS6 DH11/DJ11 DIAG 
CZLA 


DD 


Pi 


006756 


NwN————- OOo 


000002 


104006 
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007144 
000003 
000010 


000002 
000004 
0000353 
000007 


000020 
000040 


000003 


006740 


000003 
000177 


eee 
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200000000 


:PT2 -- 


NON-PRINTING CHARACTER TEST. THIS TEST 

PRINTS THE OCTAL CODE FOLLOWED BY THE MNEMONIC 

OF ALL NON-PRINTING CHARACTERS. FOLLOWING EACH 
MNEMONIC, THE PRINTER IS DRIVEN BY THE NON-PRINTING 

CODE (O0C THROUGH 037 PLUS 177). ALL CONTROL CHARACTERS 
(INCLUDING THOSE FOR OPTIONS) WILL BE SKIPPED. 

REFER TO THE DOCUMENT FOR A LIST OF THOSE PRINTED. 


s AXXXKXKKKK 


PT2: 2 : TEST NUMBER 
P13 “NEXT TEST 
PRTHDR :PRINT TEST HEADER 
1$: CLR R3 :NON-PRINTABLE CHAR..NULL IS FIRST 
MOV #LINE2,R1 :ADDR OF CHAR STRING TO R1 
2$: MOV #3,R2 :NO. OF CHAR GROUPS PER LINE 
3$: MOV #10,R4 “NO. OF CHARS PER GROUP 
4$: MOVB = (R1)4,RO :CHAR INTO RO 
PRINTC :PRINT CHAR 
DEC RG :9 CHARS. PRINTED? 
BNE 4$ “BRANCH IF NOT 
CMP #2,R3 =CHAR = STX? 
BEQ 7$ :YES, SET NEXT CHAR 
CMP #4 ,R3 =CHAR = E0T? 
BEQ 6$ :YES, SET NEXT CHAR 
CMP #33,R3 >CHAR = ESC? 
BEQ 7$ -YES, SET NEXT CHAR 
CMP #7,R3 >CHAR = BELL? 
BNE 5$ :BRANCH IF NOT A BELL 
MOV #20,R3 :SET NEXT CHAR 
5$: CMP #40,R3 -1S 11 THE LAST? 
BNE aS >BRANCH IF NO 
BR 11$ :YES, OUTPUT LAST CHAR (177) 
6$: INC R3 “SKIP CHAR 
7$: INC R3 >SKIP CHAR 
8$: MOV R3,R0 :NON=PRINTABLE CHAR TO RO 
y #3 RG :A COUNT OF 3 TO R4 
9$: PRINTC sDRIVE PRINTER WITH NON-PRINTABLE CHAR 
EC R4 :DECREMENT COUNTER 
BNE 9$ :BRANCH IF NOT ZERO (3 TIMES) 
INC R3 > INCREMENT CHAR. CODE 
DEC R2 -DEC. GROUPS PER LINE COUNTER (3) 
BEQ 108 :BRANCH IF ZERO 
R PC,SP2 :SEND 3 SPACES 
PRINTC 
BR 3$ : CONTINUE 
10$: CRLF :SEND A CR,LF 
BR :G0 DO NEXT LINE 
118: Mov #3,R4 :A 3 COUNT TO R4 
MOV #177.R0 >A DEL TO RO 
12$:  PRINTC “PRINT CHAR 
EC R4 “DECREMENT COUNTER 
BNE 12$ *BRANCH IF NOT ZERO 
CRLF “SEND A CR, LF 


ee ee nnrwam ee 


SEQ 0062 


es - 


L 5 
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2749 007140 104001 CHAIN :CHAIN TO NEXT TEST 
2750 007142 000710 BR 1$ ;REPEAT TEST 


SEQ 0065 


™~m 
“~ 
wa 


007144 030060 020060 Th oe LINE2: .ASCII /000 NULOO1 SOHO02 STX/ 


NOU EWP 
oS 
© 
~ 
——_ 
Ww 
Mm 
© 
, 
o 
—> 
™m 
ww 
© 
LA 
© 
© 
o 
© 


007174 030060 020066 040440 -ASCI11 /006 ACKO20 DLEO21 DCI/ 
759 007210 042040 042514 031060 
2761 007224 031060 020062 042040 -ASCII /022 DC2023 0C3024 DC4/ 


MNMProehsnoehoPpofurny 
SANNA 


2765 007254 031060 020065 047040 ASCII /025 NAKO26 SYNO27 ETB/ 
69 007304 031460 020060 041440 -ASCII /030 CANO31 EM 032 SUB/ 
007334 031460 020064 043040 -ASCII] /034 FS 035 GS 036 RS / 


007364 031460 020067 052440 eASCI] /037 US 177 DEL / 


9 007400 042040 046105 040 
0 007406 -EVEN 


——— 


CZLADDO +“ DH11/DJ11 1g 


CZLADD.P 


007406 


007524 


000003 


000733 
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006746 


000001 
001116 
006746 


000130 


000002 
001116 
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001116 


001116 
001112 


a ee ese -_- —_— 
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PRINTER TESTS 
20000000008 


3PTS <= 


STTTTT TTT 
PT3: 3 : TEST NUMBER 
PT4 sNEXT TEST 
PRTHDR :PRINT TEST HEADER 
1$: CLR SPCNT ;CLEAR SPACE COUNTER 
MOV WIDTH,R1 :POSITION COUNTER TO R1 
2$: MOV #117, ;“O"' TO RO 
PRINTC sPRINT THE ''O’’ 
DEC R1 ;DECREMENT POSITION COUNTER 
BEQ 3$ BRANCH IF 0 
JSR PC,SPC ;PRINT A SPACE 
DEC R1 ;DECREMENT POSITION COUNTER 
BNE 2$ sBRANCH IF NOT ZERO 
3$: CR : SEND CR 
MOV #1,SPCNT :SPACE, COUNTER SET TO 1 
4$: MOV SPCNT,R1 sNO. OF SPACES TO R1 
5$: JSR PC,SPC sPRINT SPACE 
DEC R1 sDECREMENT SPACE COUNTER 
BNE 5$ sBRANCH IF NOT ZERO 
MOV #130,R0 5 tig NTO RO 
PRINTC sPRINT "'x'’ 
CR : SEND CR 
ADD #2,SPCNT ; INCREMENT SPACE COUNT BY 2 
CMP SPCNT ,WIDTH ;COMPARE POSITION COUNTER WITH COLM. 
BLO 4% ;BRANCH IF LOWER 
LF : SEND LF 
CHAIN ;CHAIN TO NEXT TEST 
R 1$. sREPEAT TEST 


CARRIAGE RETURN TEST -- 

THE LINE CONSISTS OF A STRING OF O°S AND 

X°S. FIRST, THE O°S ARE PRINTED OUT TO THE LAST 
COLUMN WITH A SPACE SEPARATING EACH. THEN THE 
CARRIAGE IS SPACED TO THE FIRST BLANK nes AND X 
PRINTED AND THE RETURNED TO THE MARGIN. THIS 
PROCESS IS CONTINUE UNTIL ALL SPACES BETWEEN 

THE ZEROES HAVE BEEN FILLED. 


COUNT 


SEQ 0064 


ADD .P 


007526 


007654 
007656 


007664 


007666 
007674 
007702 


000004 


000207 


030460 
034060 
030060 


ee? -Ase DH11/DJ11 Ne 
CZL 03-AUG-79 09:18 


000001 
001112 
001132 


001132 
000100 


001112 
007636 


000137 
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001132 


001132 


PT4: 


1$: 


2$: 
3$: 


4$: 
REF: 


18: 


LINES: 


sss ss ceo ee — ~ ~_ 


N 5 
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20000000 


:PT4 ~~ MULTIPLE LINE FEED TEST -- 63 LINE FEEDS ARE 

SENT WITH A REFERENCE LINE AT THE START AND END. 

A NUMBER IS PRINTED WHICH INDICATES THE _ OF LINE 
FEEDS THAT WILL BE ISSUED BEFORE THE NEXT 

NUMBER OR REFERENCE LINE IS PRINTED. 


"AKKKKKXKN 


ASCII 


~EVEN 


> TEST NUMBER 
sNEXT TEST 
PRINT TEST HEADER 


#1,LFCNT ;LINE FEED Sgt TO 1 
WIDTH,R1 :COLUMN COUNT TO R1 
#LINE3,R2 ;ADDR OF NUMBER FIELD TO R2 
PC REF ;PRINT REFERENCE LINE 
LFCNT,R1 ;LINE FEED COUNT TO R1 

> SEND LF 
R1 S DECREMENT COUNTER 
3$ :BRANCH IF NOT YET 0 
LFCNT ;DOUBLE LINE FEED COUNT 
#BIT6,LFCNT >TEST IF COUNT IS 32 
4$ ;BRANCH IF =32, END 
(R2)+,R0 ;NUMBER TO RO 

;PRINT IT 
(R2)+,R0 >NUMBER TO RO 

PRINT IT 

SEND CR 
2$ DRIVE THE LINEFEEDS 
WIDTH,R1 :COLUMN COUNT TO R1 
PC REF >SEND END REFERENCE LINE 

: SEND LF 

1  gREPEAT TEST 

(R2)+,R0 ee TO RO 

:PRINT IT 
(R2)+,RO nia? iy” RO 
-(R1) ;DECREASE COUNTER BY 2 
#137,R0 :DASH (=) TO RO 

sPRINT IT 
R1 :DECREMENT COLUMN COUNTER 
1$ >BRANCH IF NO ZERO 

; SEND CR 
PC ; RETURN 
/01020408165200/ 


SEQ 0065 


Ee a eee isetieeiemeientcens cohen hie aaa 
6 
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ADD .P 03-AUG-79 09:18 PRINTER TESTS SEQ 0066 — 
2873 0Q0000000% 
2874 :PTS-- SINGLE LINE FEED TEST == TESTS THE LINE FEED 
2875 CAPABILITY FROM ALL COLUMNS. 
2876 OOOO 
2878 007704 000005 PTS: = § : TEST NUMBER 
2879 007706 010110 P16 :NEXT TEST 
2880 907710 104012 PRTHDR ;PRINT TEST HEADER 
2881 007712 013701 001112 1$- MOV WIDTH,R1 :COLUMN COUNT TO R1 
2882 097716 005741 TST -(R1) :DECREASE BY 2 
2883 007720 012700 000060 MOV #60,R0 :'0" TO RO 
2884 007724 104011 AS: PRINTC ;SEND 0 
2885 007726 005301 DEC Ri ;DECREMENT COLUMN COUNTER 
2886 007730 001375 BNE 2% ;BRANCH IF NOT ZERO 
2887 007732 012700 000062 HOV #62 ,R0 :SEND A 2 
2888 007736 104011 PRINTC 
2889 007740 104011 PRINTC ;SEND A SECOND TwO 
2890 007742 023727 001112 000204 CMP WIDTH, #132. ;COMPARE COLUMN COUNT 
2891 007750 001404 BEQ 3$ ;BRANCH IF EQ 132 
2892 007752 012700 003410 MOV #3410,R0 ;DELAY 1.8 SEC 
28935 007756 104003 DELAY 
2894 007760 000407 BR 5$ 
2895 007762 012700 000063 3$: MOV #63,R0 :3°S TO RO 
2896 007766 012701 000100 MOV #100,R1 :64 TO COUNTER 
2897 007772 104011 4$: PRINTC ;SEND CHARACTER 
2898 007774 005301 DEC R1 ;DECREMENT COUNT 
2899 007776 001375 BNE 4$ ;BRANCH IF NOT ZERO 
2900 010000 104006 5$: CRLF : SEND A CR,LF 
2901 010002 013701 001112 MOV WIDTH,R1 ;NO. COLUMNS TO R1 
2902 010006 012700 000134 6$: MOV #134,R0 ;BACKSLASH TO RO 
2903 010012 104011 PRINTC ;SEND IT 
29046 010014 104010 LF : SEND LF 
2905 010016 005301 DEC R1 S DECREMENT COUNTER 
2906 010020 001372 BNE 6$ :BRANCH IF NOT ZERO. 
2907 010022 104014 CR ;SEND CR 
2908 010024 004737 010052 JSR PC.PTSAL ;SEND REF LINE #1 
2909 01°°30 104006 CRLF . ;SEND A CR,LF 
2910 Oivus2 012700 001750 MOV #1750,R0 ;DELAY 1 SEC 
2911 010036 104003 DELAY 
2912 010040 004737 010052 JSR PC.PT5AL ; SEND A SECOND REF. LINE 
2913 010044 104006 CRLF | ;SEND A CR,LF 
2914 010046 104001 CHAIN : CHAIN TO NEXT TEST 
2915 010050 000720 BR 1$ sREPEAT TEST 
2916 010052 013701 001112 PTSAL: MOV WIDTH,RI ;COLUMN COUNT TO R1 
2917 010056 012700 000061 MOV #61,R0 pee Bak Ny RO 
2918 010062 104011 1$: PRINTC >PRINT RO 
2919 010064 005301 DEC R1 :DECREMENT COUNTER 
2920 010066 001407 BEQ 2$ ;BRANCH IF =0 
2921 010070 005200 INC RO : INCREMENT CHARACTER 
2922 010072 020027 000071 CMP RO,#71 :COMP CHAR TO ' 
2928 010076 101771 BLOS—s«i1$ ;BRANCH IF LOWER OR SAME 
2926 010100 012700 000060 MOV #60 ,RO sRESET CHAR TO ‘’0"' 
2925 010104 000766 BR 1$ : CONTINUE 
2926 010106 000207 2$: RTS PC :FINISHED, RETURN TO CALLER 


MACY11 530A(1052) 


cfrine ot ,Acs DH11/DJ11 R16, 


ADD .P 


— 3 3 28 
ooo0o°0oo 


COOCOOOCOCOCOCOOCOCCOCOOCOCOO 

ce ee ee eed ed 
COOoCOCOCOCOOCOCOCO 
i ee a a Y 
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Wwrrn—-—-Oo°oIo ane 
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000006 


000712 
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001112 
000060 


000062 


001112 
003410 


000063 
000100 


001112 
000134 


000010 
000057 


010052 
001750 
010052 


000204 
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0.8.0 8 0 9 0 8 8 | 


;PT6== 


: 
e 
e 
Ps 
Ps 
* 
’ 


BACKSPACE TEST -- A REFERENCE LINE SUCH AS IN 

TEST PTS IS PRINTED. THE SECOND LINE CONSISTS 

OF PRINTING A BACKSLASH, BACKSPACE AND FORWARD 

SLASH COMBINATION OUT TO THE GIVEN COLUMN WIDTH 

THIS LINE 1S THEN FOLLOWED BY THE SAME TWO REFERENCE 
LINES AS PRINTED IN TEST PT5. 


» MAXXKMK KKK 


PT6: 6 ; TEST NUMBER 
17 sNEXT TEST 
PRTHDR :PRINT TEST HEADER 
1$: MOV WIDTH,R1 ;COLUMN COUNT TO R1 
TST -(R1) ;DECREMENT BY 2 
MOV #60,R0 ;‘0"' TO RO 
23: PRINTC ;SEND 0 
DEC R1 ;DECREMENT COLUMN COUNTER 
BNE 2% sBRANCH IF NOT ZERO 
MOV #62,R0 3‘'2°' T0 RO 
PRINTC sSEND A ‘'2"' 
PRINTC :SEND A SECOND ‘'2"' 
CMP WIDTH, #1532. ;COMPARE COLUMN COUNT 
BEQ 3$ sBRANCH IF EQ 132 
MOV #3410,R0 :DELAY 1.8 SEC 
DELAY 
BR 5$ 
3$: MOV #63,R0 :3°S TO RO 
V #100,R1 64 TO COUNTER 
4$: PRINTC ;SEND CHAR 
DEC R1 ;DECREMENT COUNTER 
BNE 4% ;CONTINUE IF NOT DONE 
5$: CRLF sSEND A CR,LF 
MOV WIDTH,R1 ; COLUMN COUNT TO R1 
6$: MOV #134,R0 sBACKSLASH TO RO 
PRINTC : :SEND IT 
V #10,R0 : BACKSPACE TO RO 
PRINTC ND | 
V #57,R0 : FORWORD SLASH TO RO 
PRINTC :SEND IT 
C R1 :END OF PAPER 
BNE 6$% >BRANCH IF NO 
Lf : SEND LF 
CR ;SEND CR 
JSR PC .PT5AL sSEND REF LINE #1 
CRLF :SEND A CR,LF 
MOV #1750,R0 sDELAY 1 SEC 
DELAY 
JSR PC,PTSAL ; SEND ag See REF LINE 
CRLF :SEND A 
CHAIN sCHAIN TO NEXT TEST 
R 1$ :REPEAT TEST 


SEQ 0067 | 


er ar Seen —_ 
6 
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Soar s MAXKKKKKAK 
2982 :PT7-- OVERPRINT TEST-- A ROW OF ALTERNATING M'S AND 
2983 ; SPACES ARE PRINTED, OUT TO THE LAST COLUMN AND —- TWICE. 
2984 ; A SECOND LINE OF ALTERNATING SPACES AND "‘a'S'’ IS THEN 
2985 ; SENT 3 TIMES AS THE FIRST LINE. THIS IS F OL LOWED 
2986 ; BY A THIRD AND FINAL LINE OF ALTERNATING ‘8° 
2987 ; AND SPACES. 
2988 ; 
2989 > KAXXKXKXK KKK 
2990 
2991 010272 000007 PT7: 7 ; TEST NUMBER 
2992 010274 010504 PT10 sNEXT TEST 
2995 010276 104012 PRTHDR PRINT TEST HEADER 
2994 010300 012703 000002 1$: MOV #2,R3 ;2 COUNT TO R3 
2995 010304 013701 001112 2$: MOV WIDTH,R1 ;NO. OF COLUMNS TO RI 
2996 010310 012700 000115 3$: MOV #115,R0 :PRINT M 
2997 010314 104011 PRINTC 
2998 010316 005301 DEC R1 >END OF LINE 
2999 010320 001404 BEQ 4% :BRANCH IF YES 
3000 010322 004737 006746 JSR PC,SPC ;SEND SPACE 
3001 010326 005301 DEC R1 sEND OF LINE? 
3002 010330 001367 BNE 3$ ;BRANCH IF NO 
3003 010332 022703 000002 4$: CMP #2,R5 s TEST R53 
53004 010336 001003 BNE 6$ SBRANCH IF NOT FIRST TIME 
3005 010340 104014 5$: CR >SEND CR 
53006 010342 005303 DEC R53 ;DECREASE LINE COUNTER 
3007 010344 000757 BR 2$ REPEAT LINE 
3008 010346 005703 6$: TST R3 :THIRD TIME? 
53009 010350 001373 BNE 5$ ;BRANCH IF NOT 
3010 010352 104006 CRLF >NEXT LINE 
3011 010354 005723 TST (R3)+ REPEAT COUNTER TO R3 
3012 010356 013701 001112 7$: MOV WIDTH,R1 >COLUMN COUNT TO R1 
3013 010362 004737 006746 8$: JSR PC, SPC ;SEND SPACE 
3014 010366 005301 DEC RI >DECREASE COLUMN COUNT 
3015 010370 001405 BEQ 9$ ) * BRANCH IF 0, END OF LINE 
3016 010372 012700 000100 MOV #100 ,R0 ‘a’ TO RO 
3017 010376 104011 PRINTC :SEND IT 
3018 010400 005301 DEC Ri SDECREASE COLUMN COUNT 
3019 010402 001367 BNE 8$ ;BRANCH IF NOT 0 (NOT END) 
3020 010404 022703 000002 9$: CMP #2 ,R5 SEND OF LINE, FIRST TIME? 
3021 010410 001003 BNE 11$ ;BRANCH IF NOT 
3022 010412 104014 108: CR SEND CR 
3023 010414 005303 DEC R3 DECREASE LINE COUNTER 
3024 010416 000757 BR 7$ ;REPEAT LINE 
3025 010420 005703 11$: TST R35 >TEST IF THIRD REPEAT 
3026 010422 001373 BNE 10$ :BRANCH IF NOT 
3027 010424 104006 CRLF ;D0 NEXT LINE 
3028 010426 005723 TST (R3)+ ;LINE REPEAT COUNTER TO R3 
3029 010430 013701 001112 12$: MOV WIDTH,R1 :COLUMN COUNT TO RI 
3030 010434 012700 000046 138: MOV #46 ,RO ; 8" TO RO 
3031 010440 104011 PRINTC PRINT IT 
3032 010442 005301 DEC R1 :DECREASE COLUMN COUNT 
30335 010444 001404 BEQ 14% ;BRANCH IF END 
3034 010446 004737 006746 JSR PC, SPC : SEND SPACE 
3035 010452 005301 DEC R1 sDECREASE COLUMN COUNT 
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3045 010500 104001 
3046 010502 000676 
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TESTS 


;BRANCH IF NOT END 

sTEST IF FIRST TIME 
BRANCH IF =2, FIRST TIME 
CARRIAGE RETURN 
;DECREASE REPEAT COUNTER 
:PRINT LINE AGAIN 

> TEST IF END, R3=0 


;BRANCH IF NOT END 
>SEND CR,LF 

:CHAIN TO NEXT TEST 
;REPEAT TEST 


SEQ 0065 


F 
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CZLADD. 03-AUG-79 09:18 PRINTER TESTS SEQ 0070 | 
3047 OO0000000K | 
3048 : 

3049 :PT10-- PRINTING FREQUENCY TEST-- 120 H'S ARE PRINTED ON 4 LINES 
3050 : 30 PER LINE. THE TEST IS SUCH THAT BETWEEN THE FIRST AND SECOND 
3051 : H'" A 30 MSEC DELAY IS INTRODUCED. THIS DELAY IS THEN INCREASED 
3052 : BETWEEN CHARACTERS OUT TO 60 CHARACTERS IN AN EXPONENTIAL 
3053 : MANNER. THE DELAY IS THEN DECREASED IN THE SAME MANNER OUT TO THE 
gnae : 120TH CHARACTER. THIS DELAY IS CALCULATED AS FOLLOWS; 
sna ; NEW DELAY = OLD DELAY C+ OR -] (OLD DELAY/16 + OLD DELAY/128 ) 
3058 = MX KKK KKK 
3059 
3060 010504 000010 PT10: 10 ;TEST NUMBER 
3061 010506 010642 PT11 sNEXT TEST 
3062 010510 104012 PRTHDR :PRINT TEST HEADER 
3063 010512 012701 000036 1$: MOV #36,R1 :SET R1=30 
3064 010516 012702 000170 MOV #120.,R2 ;SET CHAR COUNT = 120 
3065 010522 012737 000036 010540 MOV #30. ,3$+2 :SET UP DELAY VALUE 
3066 010530 012700 900110 2$: MOV #110,R0 :"‘H'' TO RO 
10534 1 
105 0 
1 1 
1 
1 


0 
0 ! 
0 1 
0 12 
0 12 
3067 0 04011 PRINTC SEND IT 
3068 010536 012700 000036 3$: MOV #30.,R0 
53069 010542 104003 DELAY > DELAY 
3070 010544 005301 DEC R1 >DEC. COUNT OF CHARS PER LINE 
3071 010546 001426 BEQ 6$ BRANCH IF 0, END OF LINE 
53072 010550 005302 4$: DEC Re >DECREMENT CHAR COUNTER 
3073 010552 001430 BEQ 7$ ;BRANCH IF END 
3074 010554 013704 010540 MOV 5$+2,R4 :GET OLD DELAY 
53075 010560 006204 ASR RG CAL 1/16 OF OLD DELAY 
3076 010562 006204 ASR R4 
5077 010564 006204 ASR R4 
3078 010566 006204 ASR R4 
3079 010570 010405 MOV R4,R5 > SAVE 1/16 IN R5 
5080 010572 006204 ASR R4 ;CAL 1/128 OF OLD DELAY 
3081 010574 006204 ASR R4 
3082 010576 006204 ASR R4 
3083 010600 060405 ADD R4,R5. :1/16 +1/128 TO R5 
3084 010602 022702 000074 CMP #60. ,R2 TEST WHICH HALF OF THE 120 CHARS. 
3085 010606 003403 BLE ee ;BRANCH IF LT OR EQ 60 
3086 010610 160537 010540 SUB R5, 3$+2 >GT 51, DECREASE DELAY BY 34 MEC. 
3087 010614 000745 BR 2$ ;GO PRINT AGAIN 
3088 010616 060537 010540 5$: ADD R5,5$+2 ;LT HALF WAY, ADD DELAY OF 34 MEC. 
3089 010622 000742 BR 2$ ;GO PRINT AGAIN 
3090 010624 104006 6$: CRLF SEND CRLF 
3091 010626 012701 000036 MOV #36,R1 SET R1=50 
3092 010632 000746 BR 4$ 
3093 010634 104006 7$: CRLF ;SEND CR,LF 
5094 010636 104001 CHAIN >CHAIN TO NEXT TEST 
3095 010640 000724 BR 1$ REPEAT TEST 


ene 
G 6 
Aw: LA36 DH11/DJ11 DIAG MACY11 350A(1052) 03-AUG-79 09:23 PAGE 71 


DD.P11 035-AUG-79 09:18 PRINTER TESTS SEQ 0071 
3096 70000000008 
3098 ;PT11-- RIBBON FEED TEST -- THIS TEST PRINTS A SINGLE COLUMN 
3099 : OF X"S (24 LINES) DOWN THE LEFT MARGIN OF THE PAGE. VISUALLY 
sia ; CHECK THE RIBBON REED MECHANISM FOR PROPER OPERATION. 
gin s MK KK 
3104 010642 000011 PT11: 11 > TEST NUMBER 
3105 010644 010674 PT12 NEXT TEST 
3106 010646 104012 PRTHDR PRINT TEST HEADER 
3107 010650 012701 000030 1$: MOV #30,R1 sSET R1=24 
3108 010654 012700 000130 2%: MOV #130,R0 sSET CHAR = X 
3109 010660 104011 PRINTC PRINT X 
3110 010662 104006 CRLF ;SEND CR-LF 
3111 010664 005301 DEC R1 :DEC COUNT 
3112 010666 001372 BNE 2$ :BRANCH IF NOT DONE TEST 
3113 010670 104001 CHAIN :CHAIN TO NEXT TEST 
gis 010672 000766 BR 1$ REPEAT TEST 
3116 
a146 sXXXKKKKK KK 
3119 :PT12-- PRINTER BELL TEST-- THE LAST TEST IN THE 
3120 ; PRINTER TEST SEQUENCE. THIS TEST OUTPUTS 
z183 : EIGHT BELL SIGNALS TO THE PRINTER 
i$3 s AXXXKKKKX 
4 
3125 010674 000012 PT12: 12 ; THIS TEST 
3126 010676 006560 PTO sNEXT TEST 
3127 010700 104012 PRTHDR ;PRINT TEST HEADER 
3128 010702 012701 000010 PT12A: MOV #10,R1 ; COUNTER TO RI 
3129 010706 012700 000007 1$: MOV #7,R0 :BELL TO RO 
3130 010712 104011 PRINTC ;SEND IT 
3131 010714 005301 DEC R1 ;DECREMENT COUNT 
3132 010716 001373 BNE 1$ ;BRANCH IF NOT ZERO 
3133 010720 104010 LF ;SEND LF 
3134 010722 012700 003720 MOV #3720,R0 sDELAY 2 SEC BEFORE RESTARTING 
sles 010726 104003 DELAY 
3137 010730 013700 000042 MOV a#42,R0 sCHECK IF UNDER ACT11 OR XXDP 
3138 010734 001405 BEQ HERE ;CONTINUE TEST SEQUENCE 
3139 010736 000005 RESET 
3140 010740 004710 LOGICAL:JSR PC, (RO) 
3141 010742 000240 NOP 
3142 010744 000240 NOP 
3143 010746 000240 NOP 
3144 010750 104001 HERE: CHAIN >CHAIN TO NEXT TEST 
3145 010752 000753 BR PT12A sREPEAT TEST 


eee ee eo re ee 
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CZLADDO LA356 DHI1/DJ11 DIAG 
CZL im SEQ 0072 


ADD .P 05-AuG-79 09:18 


20000000008 


sPTI7--LIFE TEST 

: THIS TEST PRINTS 2 FULL LINES OF EACH PRINTABLE 

CHARACTER AND OVERPRINTS THE SECOND LINE 4 TIMES. 

THIS TEST IS CONTINUOUS RUNNING ONCE INITIATED, 

LOOPING AUTOMATICALLY ON ITSELF. 

END OF PASS COUNT IS CLEARED WHENEVER THE TEST IS RESTARTED. 


» MAK KKK KKK 


010754 000017 PT17B: 17 >; TEST NUMBER 
010756 010754 PT17B NEXT TEST 
010760 000137 010776 JMP PT17D ; CONT INUE 
010764 000017 PT17: 7 ; TEST NUMBER 
010766 010754 PT17B NEXT TEST 
010770 005037 011124 CLR PASCNT >CLEAR PASS COUNT 
010774 104012 PRTHDR PRINT TEST HEADER 
010776 012737 000041 001114 PT17D: Mov #41 ,REPT >SET START CHAR 
011004 013701 001112 1$: MOV WIDTH,R1 SET COLUMN COUNT 
011010 013700 001114 2$: MOV REPT ,RO :GET CHAR 
011014 104011 PRINTC > SEND CHAR 
011016 005301 EC R1 >DECREMENT COUNT 
011020 001373 BNE 2$ >BRANCH IF NOT DONE 
011022 104006 CRLF :SEND CR-LF 
011024 012702 000005 MOV #5 ,Re ;SET OVERPRINT COUNT 
011030 013701 001112 3$: MOV WIDTH,R1 ;SET COLUMN COUNT 
73. 011034 013700 001114 4$: MOV REPT ,RO GET CHAR 
74 011040 104011 PRINTC > SEND CHAR 
75 011042 005301 C R1 ;DECREMENT COUNT 
76 011044 001373 BNE 4$ >BRANCH IF NOT DONE 
77 011046 104014 CR ; SEND CR 
78 011050 005302 DEC R2 ;DONE OVERPRINTS? 
79 011052 001366 BNE 3$ NO, CONTINUE 
80 011054 104010 LF 73 LF 
81 011056 005237 001114 INC REPT SET NEXT CHAR 
82 011062 022737 000177 001114 CMP #177,REPT ;DONE CHAR SET? 
83 011070 001345 BNE 1$ NO, CONTINUE 
84 011072 005237 011124 INC PASCNT : INCREMENT PASS COUNT 
85 011076 012700 017555 MOV #PASMES ,RO SET MESSAGE ADDRESS 
86 011102 013701 011124 MOV PASCNT,R1 :# TO CONVERT 
87 011106 012702 000004 MOV #4 ,R2 :# DIGITS 
88 011112 104015 BIOASC ;CONVERT PASS COUNT TO ASCII 
89 011114 104002 TYPEM ; TYPE PASS COUNT 
90 011116 017536 ENDPAS 
91 011120 104001 CHAIN ;REPEAT TEST 
s 011122 000725 BR PT17D 
4 011124 000000 PASCNT: 0 
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CZLADD.P11 03-AUG-79 09:18 ECHO TESTS SEQ 0073 
3195 -SBTTL ECHO TESTS 
3196 
3197 
3198 
3199 
3200 
3201 
ssn 5 KAA KKK 
3204 *£020-- CHARACTER ECHO TEST=-- ALL PRINTABLE AND 
3205 : NON-PRINTING CHARACTERS TYPED ON THE KEYBOARD 
3206 : ARE USED TO DRIVE THE PRINTER, ONE CHARACTER AT 
3207 : A TIME. A “RUBOUT’’ WILL CAUSE THE TEST TO BE 
3208 ; TERMINATED. 
3209 ; 
a54% OOOO0000006 
3212 011126 000020 E020: 20 ; TEST NUMBER 
3213 011130 011172 E021 NEXT TEST 
3214 011132 104012 PRTHDR :PRINT TEST HEADER 
3215 011134 104013 1$: READ :GO WAIT FOR KEYBOARD INPUT 
3216 011136 012700 000036 MOV #30.,R0 ;DELAY FOR HALF DUPLEX 
3217 011142 104003 DELAY 
3218 011144 013700 001124 MOV TEMPCH,RO :GET CHAR 
3219 011150 022700 000177 CMP #177,R0 :CHECK IF RUBOUT 
3220 011154 001402 BEQ 2$ :BRANCH IF YES 
3221 011156 104021 ECHO :NO, CHECK PRINTER READY 
3222 011160 000765 BR 1$ 
3223 011162 104002 2$: TYPEM :PRINT TERMINATION MESSAGE 
3224 011164 020017 ECOEND 
3225 011166 104001 CHAIN ;CHAIN TO NEXT TEST 
3226 011170 000761 Bk 1$ REPEAT TEST 
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CZLADD.P11 03-AUG-79 09:18 ECHO TESTS SEQ 0074 
336) 2 OOOO 
3229 ;E021-- LINE ECHO TEST, FAST RATE-- THIS TEST WILL 
3230 ; CAUSE THE CONTINUAL PRINTING OF "‘0'’ AT THE MAXIMUM 
3231 : RATE UNTIL EITHER ANOTHER CHARACTER IS SELECTED 
5232 ; BY — A KEY ON THE KEYBOARD OR TERMINATION BY THE 
5233 ; RUBOUT 
3234 ; 
3235 > MXM MMM 
3236 
3237 011172 000021 EO21: 21 : TEST NUMBER 
32358 0111746 011244 E022 :NEXT TEST 
32359 011176 104012 PRTHDR ;PRINT TEST HEADER 
3240 011200 012737 000060 001114 EO21A: MOV #60,REPT ; CHARACTER TO _ REPEATED (0) 
3241 011206 013737 001112 001122 2$: MOV WiDTH,POSI ;SET CHAR COUNT 
3242 011214 013700 001114 1$: MOV REPT,RO ;CHAR TO TEMPCH 
3245 011220 104011 PRINTC :PRINT CHAR 
3244 011222 005337 001122 DEC POS! ;DECREMENT POSITION COUNTER 
3245 011226 001372 BNE 1$ ; CONTINUE 
5246 011230 104006 CRLF ;SEND A CR AND LF 
re 011232 000765 BR 2$ 
3249 011234 104002 EO21B: TYPEM ;PRINT TERMINATION MESG 
3250 011236 020017 ECOEND 
3251 011240 104001 CHAIN ; CHAIN TO NEXT TEST 
5252 011242 000756 BR EO21A ;REPEAT TEST 


~~ 


LL TT A ASN 
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000060 
001112 
001114 
003410 
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001114 
001122 


20000000008 


7E022-= L 


"OOOO UIK 


E022: 


EO22A: 
3$: 
1$: 


2$: 


E022B: 


22 
E 


TYPEM 
ECOEND 
CHAIN 
BR 


#60 ,REPT 
WIDTH,PCSI 
REPT ,RO 
#3410,R0 


POS! 
1$ 


3$ 


EQ22A 


INE ECHO TEST, SLOW RATE-- SAME AS E021 EXCEPT 
THAT A DELAY IS INTRODUCED BETWEEN CHARACTERS 
TO PRODUCE AN LCV ACTION 


PRINT TEST HEADER 

;LOAD 0 AS INITIAL CHARACTER 
>SET CHAR COUNT 

;READY,CHAR TJ) TEMPCH 
;OUTPUT CHAR 


;DECREMENT POSITION COUNTER 
>BRANCH IF NOT DONE LINE 
: SEND A CR AND LF 


>PRINT TERMINATION MESSAGE 


>CHAIN TO NEXT TEST 
;REPEAT TEST 


SEQ 0075 


SO HS 
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CZLA 
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DD .P1 


oo 
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020114 


020040 


MONIC 


THIS FOLLOWING TABLE IS USED BY TEST E023 


see 


~™ ™ SS TS. SS A TR SS TR SR SS SR SR RS SR SR RR SSS SS 


SEQ 0076 


esene-+——- nee ee 


An = a 
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CZLADD.P11 03-AUG-79 09:18 SEQ 0077 
ze5e 20000000001 
3322 ;EO0235-- CHARACTER CODE TEST=-- ALL CHARACTERS SELECTED | 
3323 : WILL BE ECHOED ALONG WITH ITS OCTAL CODE. 
3324 ‘ A MNEMONIC WILL BE PRINTED INSTEAD OF THE CHARACTER | 
3325 ; If 17 1S A NON-PRINTING CHARACTER. | 
3326 : THE PARITY OF THE RECEIVED CODE WILL BE | 
<355 : INDICATED AS EITHER EVEN OR ODD. 
3329 2 OO0000000L 
3330 
3331 011530 000023 E023: 23 ; TEST NUMBER 
3332 011532 012052 E024 sNEXT TEST 
3333 011534 104012 PRTHDR ;PRINT TEST HEADER 
3334 011536 104013 1$: READ 7GO WAIT FOR CHARACTER 
3335 011540 012700 000036 MOV #30.,R0 sDELAY FOR HALF DUPLEX 
3336 4011544 104003 DELAY 
3337 011546 023727 001124 000041 CMP TEMPCH, #41 :TEST IF CHAR IS PRINTABLE 
3338 011554 103015 BHIS 3$ ;BRANCH IF IT IS 
3339 011556 004737 011712 JSR PC,STRLN ;STORE CODE INTO MESSAGE 
3340 011562 013700 001124 MOV TEMPCH,RO :GET CODE AGAIN 
3341 011566 006300 ASL RO :MULT BY 2 
3342 011570 006300 ASL RO :MULT BY 4 
3343 011572 062700 011324 ADD #MONIC,RO ;ADD ADDR OF MNEMONIC TABLE 
33544 011576 004737 011770 JSR PC ,MOVNUM sMOV MNEMONIC TO MESSAGE 
3345 011602 104000 2%: TYPE ; TYPE CODE AND MNEMONIS 
3346 011604 020046 EO23m s ADDRESS OF MESSAGE 
3347 011606 000753 BR 1$ :GO WAIT FOR NEXT CHARACTER 
3348 011610 023727 001124 000177 3$: CMP TEMPCH, #177 :TEST IF CHAR IS A RUBOUT 
3349 011616 001421 BEQ 4$ ;BRANCH IF RUBOUT 
3350 011620 012701 012042 MOV #MG24,R1 
3351 011624 113721 001124 MOVB TEMPCH, (R1)+ 
3352 011630 112721 000040 MOVB #40,(R1)+ 
3353 011634 112721 000040 MOVB #40,(R1)+ 
3354 011640 112721 000040 MOVB #40,(R1)+ 
3355 011644 004737 011712 JSR PC,STRLN ;STORE CODE INTO MESSAGE 
3356 011650 012700 012042 MOV #MG24,R0 ;ADDR OF CHAR INTO RO 
3357 011654 004737 011770 JSR PC .MOVNUM sMOVE CHAR INTO MESSAGE 
3358 011660 000750 BR 2$ : TYPE MESSAGE 
3359 011662 004737 011712 4$: JSR PC,STRLN ;RUBOUT, CONVERT AND STOR CODE 
3360 011666 012700 012046 MOV #4G25,R0 ;ADDR. OF DEL INTO RO 
3361 011672 004737 011770 JSR PC ,MOVNUM sMOVE DEL INTO MESSAGE 
3362 011676 104000 TYPE | : TYPE MESSAGE 
3363 011700 020046 E0235 sADDR OF MESSAGE 
3364 011702 104002 TYPEM 
3365 011704 020017 ECOEND 
3366 011706 104001 CHAIN :CHAIN TO NEXT TEST 
3367 011710 000712 BR 1$ ;REPEAT TEST 
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CZLADDO L 
CZLADD .P11 

5368 011712 
3369 011716 
3370 011722 
3371 011726 
3372 011732 
33735 011736 
3374 011742 
33575 011744 
33576 011746 
3577 011750 
3378 011754 
3379 011760 
3380 011764 
33581 011766 
3382 

3383 

3384 011770 
3385 011774 
3386 012000 
3387 012002 
3388 012004 
53589 012006 
3390 012012 
3391 012014 
3392 012020 
33935 012022 
5394 012026 
3395 012032 
3396 012034 
3397 012036 
5398 012040 
3599 

3400 012042 
3401 

5402 

3405 

3404 012046 
3405 


012702 
012701 


o-oo 


o-oOoo°oOo-o 
o—-— 4 O- © 
w 
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001130 
001130 
001130 


020054 
000004 


001126 


020111 


020115 
000004 


020040 


020114 


STRLN: 


1$: 


MOVNUM: 


ASCII 


EVEN ~ 


~ASCTI1 


#3,R2 
te haha 


#LINESA,R1 
#4,R 
(RO)+,(R1)+ 
R2 


1$ 

PARITY 

2$ 
#EVEN,RO 

3$ 

#0DD,RO 

#4 ,R2 
(RO)+,(R1)+4 
R2 


4$ 
PC 


/ / 


/DEL / 


;COUNT OF 3 TO R2 

;ADDR OF MESG TO RI 

;POINT TO LAST SPACE IN MESG 
;MOVE OCTAL CODE TO RO 

;SAVE LS OCTAL CHAR. 

MAKE ASCII] 

:MOVE INTO MESG 

;DECREMENT CHAR COUNTER 
;BRANCH IF 3 MOVED 

NOT THREE, SHIFT NEXT OCTAL 
; CHARACTER TO THE RIGHT 


:CONVERT AND STORE NEXT CHAR. 


;RETURN TO CALLER 


:ADDR OF LINES IN R1 
;COUNT OF 3 TO R2 

;MOV 3 CHARS TO MESG AREA 
:DECREMENT COUNTER 

sBRANCH IF NOT ALL DONE 

; TEST PARITY FLAG 

;BRANCH IF ODD PARITY 

;SET MESSAGE FOR EVEN PARITY 
; CONTINUE 

:SET MESSAGE FOR ODD PARITY 


~3SET WORD COUNT 


;MOVE CHAR TO MESSAGE 
>DEC CHAR COUNT 
: CONT INUE 


; RETURN 
; SAVE CHARACTER CODE 


>MNEMONIC FOR RUBOUT 


SEQ 0078 


ew oe 
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CZLADD.P11 03-AUG-79 09:18 ECHO TESTS SEQ 0079 
3407 300000000 
3408 
3409 7£E024-- SELECTED PATTERN ECHO TEST-- SELECT 1 19 256 
3416 : CHARACTERS. EAH WILL BE ECHOED 
3411 : AND STORED UNTIL THE CNIL/C IS SELECTED. 
3412 : AT THAT TIME ALL CHARACTERS WILL SE PRINTED AS 
3413 : A CONTINCUS STRING UNTIL EITHER THE RUBOUT IS 
3414 : SELECTED TO TERMINATE OR THE CNTL/C IS SELECTED 
3415 : AGAIN. A TERMINATING CNTL/L FOLLOWED BY A CNTL/C WILL ALWAYS 
3416 CAUSE THE LAST INPUTTED STRING TO BE REPEATED. A TERMINATING 
3417 : CNTL/C FOLLOWED BY SOME OTHER CHARACTER WILL START A NEW 
3418 : STRING. 
3419 : 
mk DO000000000K 
4 
3422 012052 000024 E024: 24 : TEST NUMBER 
3423 012054 012636 E025 :NEXT TEST 
3424 012056 104012 PRTHDR ;PRINT TEST HEADER 
3425 012060 005001 E024B: CLR R1 ;CLEAR CRKARACTER COUNT 
3426 012062 012702 912234 MOV #BUFR,R2 ;ADDRESS OF BUFFER TO R2 
3427 012066 104013 18: READ ;WAIT FOR INPUT 
3428 012070 012700 000036 MOV #30.,R0 ;DELAY FOR HALF DUPLEX 
3429 012074 104003 DELAY 
3430 012076 022737 000177 001124 CMP #177, TEMPCH s;TEST IF RUBOUT 
3431 012104 001447 BEQ TERM :BRANCH IF RUBOUT 
3432 012106 022737 000003 001124 CMP #3, TEMPCH :TEST IF .CNTL=C 
34355 012114 001416 BEQ OUTPUT + BRANCH IF CNIL=C 
34354 012116 020127 000400 CMP R1,#256. YES, CHECK IF CHAR CNT IS EQ, GT 256 
34355 012122 103361 BHIS 1$ BRANCH IF YES, IGNORE CHAR 
3436 012124 013700 001124 MOV TEMPCH,RO :;GET CHAR 
3437 012130 110022 MOVB RO, (R2)+ ;STORE CHAR INTO BUFFER 
3438 012132 e434 INC R1 : INCREMENT CHARACTER COUNT 
3439 012134 104021 ECHO “OUTPUT CHAR 
rq] 012136 000753 BR 1$ :GO WAIT FOR NEXT CHAR 
44 
3442 012140 005037 001124 EO24R: CLR TEMPCH ;CLEAR CONTROL-C FROM BUFFER 
3443 012144 104006 CRLF ;CONTROL=C RETURN FROM PRINT ROUTINE 
3444 012146 104010 LF 
3445 012150 000743 BR E0248 
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012254 


001124 
001124 


012234 


001124 
000003 


000003 


5; eeaeeeee 


>SECTION TO OUTPUT CONTINOUS STRING 


- 
5 eaeereeenre 


OUTPUT: 


TERM: 


BUFR: 


CMP 
B 


TYPEM 
ECOEND 
CHAIN 
BR 


b) 
.BLKB 


R2,#BUFR 
1$ 


TEMPCH, (R2)+ 
TEMPCH 


#BUFR,R2 


E024B 


256. 


c Ff 
MACY11 30A(1052) 03-AUG-79 09:23 PAGE 8&0 
ECHO TESTS 


;CHECK IF POINTER IS AT START OF BUFFER 
;YES, DON’T STORE “C IN TABLE 

sSTORE “C IN TABLE 

:CLEAR CONTROL-C FROM BUFFER 

;SEND A CR LF 

;BUFFER ADDRESS TO R2 

>CLEAR CONTROL-C 

FIRST CHAR IN TABLE “C ? 

:YES, GO LOOK FOR MORE INPUT 

;GET CHAR 


“DONE STRING? 

=YES, RESTART STRING 
“OUTPUT CHAR 

:QUTPUT TERMINATION MESSAGE 


:CHAIN TO NEXT TEST 
;REPEAT TEST 


s INITIALIZE FIRST CHAR AS CNTL-C IN TALBE 
256 CHARACTER BUFFER 


ree ee oe 


SEQ 0080 








hiae P jase DH11/DJ11 5o ta 


ADD .P 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3481 
3482 
3483 
3484 
5485 012636 
3486 012640 
3487 012642 
3488 012644 
3489 012652 
3490 012654 
3491 012656 
3492 012660 
3493 012662 
3494 012664 
3495 012666 
3496 012670 
3497 012674 
3498 012676 
3499 012702 
3500 012706 
3501 012710 
3502 012714 
3503 012716 
3504 012720 
3505 012722 
3506 012724 
3507 012726 
3508 012730 
3509 012732 
3510 012734 
3511 012736 


900025 


000742 
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001112 


000036 


001124 
000040 


000177 





MACY11 30A(1052) 
ECHO TEST 


dD 7 
lati 09:25 PAGE 8&1 


OOOO KK 
:£025-- BELL ECHO TEST-- A MESSAGE 1S PRINTED AND 


THE TEST WAITS FOR SOME PRINTABLE CHARACTER 
TO BE SELECTED ON THE KEYBOARD (GT040). THIS 


; COLUMNS. IF L164 COLUMNS AN ILLEGAL BELL TEST 
; MESSAGE 1S PRINTED. 
s XXX KAMA KKK 
E025: 25 ; TEST NUMBER 
E020 sNEXT TEST HEADER 
PRTHDR >PRINT TEST HEADER 
000101 1$: CMP WIDTH, #101 > TEST IF COLUMN COUNTIS EQ,GT 64 
BLO 4$ ;BRANCH IF NOT 
TYPEM > TYPE TEST MESG 
EO25MA ;ON ALL TERM'S 
R 3% ;WAIT FOR CHAR 
2$: TYPE > TYPE TEST MESG ON TERM 
EO25MA > CHARACTER WAS RECEIVED ON 
3$: READ ;WAIT FOR OPERATOR RESPONSE 
MOV #30.,R0 ;DELAY FOR HALF DUPLEX 
DELAY 
MOVB TEMPCH,RO ;CHAR TO RO 
CMP RO, #40 ; TEST IF PRINTABLE 
BLO 3$ :BRANCH IF NON-PRINTABLE 
CMP #177,R0 >CHECK IF CHAR IS RUBOUT 
BEQ 5$ ;BRANCH IF YES 
ECHO ;PRINT CHAR 
SCRLF > SEND A CRLF 
BR 2$ ; REPEAT 
4$: TYPEM s TYPE ERROR MESSAGE 
E025MB 
5$: TYPEM ;PRINT TERMINATION 
ECOEND 
CHAIN sEXI1T TO NEXT TEST 
BR 1$ ;REPEAT TEST 


SEQ 0081 


a 


a 


enn = - 
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Rs eA ee DHI11/DJ11 DIAG MACYI1 ytd iat O3-AUG-79 09:23 PAGE &2 


DD .P 05-AUG-79 09:18 PTION TESTS SEQ 0082 | 
3512 .SBTTL OPTION TESTS | 
3513 | 
ise 2 OQ000000000000L 
3516 “TEST30 - SECONDARY CHARACTER SET OPTION | 
3518 OOOQ0000000000K | 
3520 012740 000030 TEST30: 30 
3521 012742 012740 TEST30 
3522 012744 104012 PRTHDR :PRINT TEST HEADER 
3523 012746 012704 000010 MOV #8. ,R4 :SET PASS COUNT 
3524 012752 104002 013036 2$: TYPEM, 10$ : INDICATE PRIMARY SET AND SEND ‘’S]"’ 

3525 012756 012702 000177 MOV #177,R2 :SET END CHAR 

3526 012762 004737 013050 JSR PC, 308 :PRINT CHAR SET 

3527 012766 104002 013043 TYPEM, 20$ : INDICATE SECONDARY CHAR SET 
3528 012772 013702 013120 MOV T30SC,R2 :SET CHAR SET LIMIT 
3529 012776 020227 000377 CMP R2,8377 sUSING 8 BITS INSTEAD OF $1? 
3530 013002 001403 BEQ 3$ sBRANCH IF YES 

3531 013004 012700 000016 MOV #16,R0 :SET SO CHAR 

3532 013010 104011 PRINTC ;SEND IT 

3533 013012 004737 013050 3$: JSR PC, 30$ :PRINT CHAR SET 

3534 013016 104006 CRLF =BLANK LINE 

3535 013020 005304 DEC R4 :DEC PASS COUNT 

35356 013022 001353 BNE 2$ sFINISH TEST 

3537 013024 012700 000017 MOV #17,R0 :SET SI CHAR AGAIN 

3538 013030 104011 PRINTC >MAKE SURE ON PRIMARY CHAR SET 
3539 013032 104001 CHAIN :NEXT TEST SELECTION OR LOOP 
3340 013034 000741 BR TEST30 :LOOP ON TEST 

3542 013036 021417 036461 000 10S: eASCIZ <17>/#1=/ 

3543 013043 017 031043 000075 20$: -ASCIZ <17>/#2=/ 

264 EVEN 

3546 013050 010201 30$: MOV R2,R1 :GET LIMIT CHAR 

3547 013052 042701 177537 BIC #177537,R1 :GET START CHAR 

3548 013056 013703 001112 MOV WIDTH,R3 :GET COLUMN COUNT 

3549 013062 162703 000003 SUB #3,R3 sSUBTRACT 3 

3550 013066 010100 318: MOV R1,R0 ;GET CHAR 

3551 013070 104011 PRINTC :PRINT IT 

3552 013072 005201 INC R1 sNEXT CHAR 

3553 013074 020102 CMP R1,R2 :DONE CHAR SET? 

3554 013076 001406 BEQ 32$ sEXI1T IF DONE 

3555 013100 005303 DEC R3 ;DEC COLUMN COUNT 

3556 013102 001371 BNE 31$ sFINISH LINE 

3557 013104 104006 CRLF -SEND CR-LF WHEN DONE LINE 
3558 013106 013703 001112 MOV WIDTH,R3 :RESET COLUMN COUNT 

3559 013112 000765 BR 31$ > CON TINUE 

3560 013114 104006 32$: CRLF :SEND CR-LF 

t203 013116 000207 RTS PC RETURN 

6 
3563 013120 000177 T30SC: . WORD 177 sCHAR SET LIMIT 


CHANGE TO 577 WHEN USING 8 BIT CHAR SELECTION 
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013712 


015542 
000007 


000002 


013712 
000002 
013542 


013670 
013712 


000002 
013606 


013716 


013712 


013542 
000002 


013614 


013633 
000036 


000177 001124 


MACYII meee reee) 


OPT1O 


200000000 000000K 


“TEST31 - 


UOU000000 00000 
TEST31: 


2$: 
3$: 


31 
T 


SELECTIVE ADDRESSING OPTION 


34$,R0 


10$ 
#7,R0 


#2,R0 


34$,R0 
#2,R0 
10$ 
#30$,R3 
(R53) 

2$ 
34$,R0 


(R3),RO 
#2,R0 


14$ 
(R3)+,R0 


1$ 
#40$,R5 
(R3) 

4$ 

54% ,R0 
(R35) ,RO 
10$ 
#2,R0 
15$ 
(R3) ,RO 


20$ 
#30. ,R0 


#177, 17EMPCH 
5$ 


>SEND CRLF 
;SET EOT CHAR 


SEND IT 
7 TRY ng t ERROR MESG 


;SET BEL 
SEN 


DIT 


SET STX CHAR 
:SEND IT 
:PRINT TEST HEADER ON ALL TERMINALS 
>SET EOT CODE 
; SEND 
seer 3 
: SEND 

> TRY PRINT ERROR MESG 


IT 
TX CODE 
IT 


:SET TABLE POINTER 
as TABLE POINTER 


; SEND 


; SEND 
:SEND IT 
7 SEND 


; TYPE MESG 
: TYPE 


; CRLF 
>CONTINUE - NEXT SELECT CHAR 
SET TABLE ADR 

>CHECK SELECT CHAR 

;CONTINUE TEST 

> SEND 
ALL TERMS OFF 


T PORTION OF TEST IF DONE 
EOT CHAR 


GROUP SELECT CHAR 
STX CHAR 


SELECT CHAR FOR MESG 


EQT CHAR 


>GET UNIQUE SELECT CHAR 
;SEND IT = THAT TERM ON 
: TRY PRINTING ERROR MESG 
;SEND STX 


: TYPE 
:PRINT SELECT CHAR FOR MESG 


SELECT CHAR MESG 


;PRINT MESG 
; READ 
>DELAY FOR HALF DUPLEX 


; CHECK CHAR 
sEXIT 


CHAR FROM SELECTED TERM 


IF RUBOUT 


SEQ 0083 








sessment 


G 7 
CZLADDO LA356 DH11/DJ11 DIAG MACY11 "apt ian te O35-AUG-79 09:23 PAGE &4 


CZLADD.P11 05-AUG-79 09:18 ] STS SEQ 0084 
3621 013336 013700 013712 MOV 34$,R0 ;ENABLE ALL TERMINALS 
3622 013342 104013 PRINTC | 
3623 013344 012700 000007 MOV #7,R0 | 
3624 013350 104011 PRINTC | 
3625 013352 012700 000002 MOV #2,R0 
3626 013356 104011 PRINTC | 
3627 013360 000137 002540 TTY1H :G0 TO KYBD CONTROL | 
3628 013364 013700 001124 5$: MOV TEMPCH,RO :GET CHAR | 
3629 013370 104021 ECHO :ECHO CHAR 
3630 013372 104006 CRLF :SEND CR-LF 
3631 013374 013700 013712 MOV 34$,R0 :SEND EOT CHAR 
3632 013400 104011 PRINTC 
3633 013402 013700 013714 MOV 35$,R0 ;SEND DUMMY SELECT CHAR 
3634 013406 104011 PRINTC 
3635 013410 012700 000002 MOV #2,R0 :SEND STX 
3636 6013414 104011 PRINTC 
3637 013416 104002 013542 TYPEM, 10% ; TRY PRINTING ERROR MESSAGE | 
3638 013422 012700 000003 MOV #3,R0 >SEND ETX 
3639 013426 104011 PRINTC 
3640 013430 011300 MOV (R3),RO ;SEND UNIQUE SELECT CHAR 
3641 013432 104011 PRINTC 
3642 013434 012700 000002 MOV #2,R0 :SEND STX 
3643 013440 104011 PRINTC 
3644 013442 104002 013614 TYPEM, 15% :PRINT SELECT MESG ON SELECTED TERMINAL 
3645 013446 011300 MOV (R3),RO :PRINT SELECT CHAR FOR MESG 
3646 013450 104011 PRINTC 
3647 013452 104006 CRLF :SEND CR-LF 
3648 013454 012700 000003 MOV #3,R0 >SEND ETX 
3649 013460 104011 PRINTC 
3650 013462 012700 013714 MOV #35$,R0 ;SEND DUMMY SELECT CHAR 
3651 013466 104011 PRINTC 
3652 013470 012700 000002 MOV #2,R0 :SEND STX 
3653 013474 104011 PRINTC 
3654 013476 104002 013614 TYPEM, 15% ;PRINT MESG ON SELECTED TERM 
3655 013502 012300 MOV (R3)+,R0 :PRINT SELECT CHAR FOR MESG 
3656 013504 104011 PRINTC 
3657 013506 104006 CRLF | :SEND CR-LF 
3658 013510 000657 BR 3$ = CONT INUE 
3659 013512 013700 013712 4$: MOV 34$.R0 sENABLE ALL LINES 
3660 013516 104011 PRINTC :BEFORE EXITING TEST 
3661 013520 012700 000007 MOV #7,RO 
3662 013524 104011 PRINTC 
3663 013526 012700 000002 MOV —s- #2, RO 
3664 013532 104011 PRINTC 
3665 013534 104001 CHAIN :CHAIN TO NEXT TEST OR LOOP ON TEST 
3666 013536 000137 013122 JMP TEST31 :LOOP ON TEST 
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CZLADD.P11 03-AUG-79 09:18 OPTION TESTS SEQ 0085 


3667 013542 051105 047522 026122 108: -ASCIZ /ERROR, ALL TERMINALS SHOULD BE OF F/<ACRLF> 
3668 013550 040440 046114 052040 

3669 013556 051105 044515 040516 

3670 013564 051514 051440 047510 

3671 013572 046125 020104 042502 

5672 013600 047440 043106 000200 

3675 013606 051107 052517 020120 14$: ASCII] /GROUP / 

3674 013614 042523 042514 052103 15$: eASCIZ /SELECT CHAR = / 

3675 013622 041440 040510 020122 

5676 013630 020075 000 

3677 013633 124 050131 020105 20$: -ASCIZ /TYPE ANY PRINTABLE CHAR ... / 

36/8 013640 047101 020131 051120 

3679 013646 047111 040524 046102 

3680 013654 020105 044103 051101 

3681 013662 027040 027056 000040 

rey -EVEN 

5684 013670 000107 30$: 107 :GROUP SELECT CHAR TABLE 
5685 013672 000000 0 sFIRST ZERO = END OF TABLE 
3686 013674 000000 0 

3687 013676 000000 0 

3688 013700 000000 0 

3689 013702 000000 0 

53690 013704 000000 0 

3691 013706 000000 0 

ae08 013710 000000 0 

3298 013712 000004 34$: 004 >DESELECT CHAR = ‘’EOT’’ 
3696 013714 000045 35$: 045 Oe SELECT CHARACTER, 
5697 F ''¥'" 1S USED AS A UNIQUE OR GROUP SELECT 
5698 CHARACTER, REPLACE WITH ANY UNUSED SELECT 
44 > CHARACTER CODE. 

3701 013716 000125 40$: 125 ;UNIQUE SELECT CHAR TABLE 
3702 013720 000000 0 FIRST ZERO = END OF TABLE 
3703 013722 000000 0 

3704 013724 000000 0 

3705 0135726 000000 0 

3706 013730 000000 0 

3707 013732 000000 0 

3708 013734 000000 0 

3709 013736 000000 0 


Oe tl tenets tease 
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CZLADD.P11 03-AUG-79 09:18 OPTION TESTS SEQ 0086 
S50 2 O0000000000000L 
Tat :TEST32 - AUTO ANSWER BACK OPTION 
go1e DOOOOO0000000000%( 
3716 013740 000032 TEST32: 32 
3717 013742 013740 TEST32 
3718 013744 104012 PRTHDR ;PRINT TEST HEADER 
3719 013746 012700 000005 MOV #5,R0 ;SEND ENQ CHAR 
3720 013752 104021 ECHO 
3721 013754 004737 014004 JSR PC,10$ ;READ AND PRINT MESG 
3722 013760 104002 014072 TYPEM, 20% : TYPE INSTRUCTIONS 
3723 013764 004737 014004 JSR PC,10$ ;READ AND PRINT MESG 
3724 013770 104002 014117 TYPEM, 30% > TYPE INSTRUCTIONS 
3725 013774 004737 014004 JSR PC,10$ ;READ AND PRINT MESG 
3726 014000 104001 2$: CHAIN ;CHAIN TO NEXT TEST 
3550 014002 000756 BR TEST32 ;LOOP ON TEST 
3729 014004 012702 014143 10$: MOV #STORE ,R2 :;SET TABLE ADR 
3730 014010 104013 READ :READ FIRST CHAR 
3731 014012 023727 001124 000177 8$: CMP TEMPCH, #177 :;CHAR = RUBOUT? 
3732 014020 001002 BNE 3$ ;CONTINUE IF NOT RUBOUT 
3733 014022 000137 002540 JMP TTY1H :G0 TO KYBD CONTROL 
3734 014026 113722 001124 3$: MOVB TEMPCH, (R2) + :STORE CHAR 
3735 014032 012703 000062 MOV #50.,R3 >SET DELAY COUNT 
3736 4014036 013701 001102 4$: MOV TIMER,R1 
3737 014042 104022 5$: INRDY ;ANY INPUT? 
3738 014064 000401 BR 6$ :NO, WAIT Ay 8 “gia 
3739 014046 000761 BR aS -YES, READ 
3740 014050 005301 6$: DEC R1 DELAY TLE waiyine FOR CHAR 
3741 014052 001373 BNE 5$ 
3742 014054 005303 DEC R3 
3743 014056 001367 BNE 4$ 
3744 014060 105012 7$: CLRB (R2) ;SET NULL AS TERMINATOR IN TABLE 
3745 014062 104000 014142 TYPE, STORE-1 ; TYPE MESG ON TERMINAL RECEIVED ON 
3746 014066 104007 SCRLF | ;SEND CR-LF 
eet 014070 000207 RTS PC ;RETURN TO TEST 
3749 014072 042504 051120 051505 208: -ASCIZ /DEPRESS HERE IS KEY/<ACRLF> 
3750 014100 020123 042510 042522 
3751 014106 044440 020123 042513 
3752 014114 100131 000 
3753 014117 104 050105 042522 30$: -ASCIZ /DEPRESS CONTROL-E/<ACRLF> 
3754 014124 051523 041440 047117 
3755 014132 051124 046117 042455 
3756 014140 000200 
fed 014142 200 ASCII <ACRLFO 
teen 014143 000025 STORE: .BLKB 21. :20 CHAR + TERMINATOR BUFFER 
6 
3761 EVEN 


———_— A 
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014642 


900020 
000036 
000177 
002540 


000014 
014626 


014567 
014360 
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000014 
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MACY11 30A(1052) 
OPTION TE 


001124 


001124 


O00000000000001 
;TEST33 - FORM FEED OPTION 
0O00000000000001 
TEST33: 33 
TEST33 
PRTHDR 
MOV #50$.R5 
Vv #60$,R4 
TYPEM, 40% 
MOV #16.,R1 
READ 
MOV #30.,R0 
DELAY 
CMP #177, TEMPCH 
BNE 13% 
JMP TTY1H 
13$: CR 
8$: LF 
DEC R1 
BNE $ 
MOV #14,R0 
PRINTC 
MOVB 60$,R1 
9$: CLR RO 
PRINTC 
DEC R1 
BNE 9$ 
TYPEM, 45% 
5$: MOV R5,2$% 
READ 
MOV #30.,R0 
DELAY 7 
CMP #177, TEMPCH 
BNE 158. 
JMP TTY1H 
15$: CR 
Vv #14,R0 
PRINTC 
vB (R4)4+,R1 
11$: LR RO 
PRINTC 
DEC R1 
BNE 118 
128: TYPEM, 10% 
TYPEM 
2$: WORD 
TYPEM, 20% 
CMP (R5)4,(R5)+ 
TYPEM 
4$: WORD 0 
TYPEM, 30% 
TYPEM, 108% 


>PRINT TEST HEADER 


;SET TABLE POINTER 
;SET TABLE POINTER 
PRINT INSTR 

;SET LF COUNT TO 16 


>WAILT FOR KYBD FLAG 
sDELAY FOR HALF DUPLEX 


;CHECK FOR RUBOUT 


sEXIT IF RUBOUT 

:GO TO KYBD CONTROL 
:SEND CR 

; SEND LF 

;DEC COUNT 

: CONTINUE 

sSET FF 

sSEND IT 

:SET FILL COUNT 
;SET NULL 

:SEND FILLS 

:DEC FILL COUNT 

; CONTINUE 

s TYPE MESSAGE 

:SET MESG 

sWAIT FOR KYBD FLAG 
:DELAY FOR HALF DUPLEX 


sCHECK IF RUBOUT 
sEXIT IF RUBOUT 
;60 a ag CONTROL 


NU 
: SEND FILLS 
; CONTINUE 
:FINISH NULLS 
;PRINT MESG 


INC TABLE POINTER 
;SET MESG 
PRINT MESG 


SEQ 0087 © 


ne rene en - 
on ae ee ee 
LL TE TT TT LL LR a 


— ee 


SL ert tte tess Sts NS 


a en = 


7 
CZLADDO LAS6 DH11/DJ11 DIAG MACY11 meet ieee? ath 09:25 * PAGE 88 


CZLADD.P11 03-AUG-79 09:18 TEST SEO 0088 
3818 014410 005765 000004 1ST 4(R5) :DONE TEST? 
3819 014414 001331 BNE 5$ :NO, CONTINUE 
3820 014416 104006 CRLF YES, SEND CR-LF 
3821 014420 104001 CHAIN :SELECT TEST OR LOOP 
3822 014422 000662 BR TEST33 [LOOP ON TEST 
3824 014424 026455 026455 000055 10$: .ASCIZ /----- 
3825 014482 020042 043106 020087 208:  “ASCIZ. 7" FF/<ST>/ J 
3826 014440 000 
3827 014441 042 0470460 054105 308:  .ASCIZ /* NEXT / 
3828 014446 020124 000 
3829 014451 104 050105 042522 40$: ASCII /DEPRESS FORMFEED RESET SWITCH/<ACRLF>/AFTER EACH SWITCH SETTING/<ACRLF> 
3830 014456 051523 043040 051117 
3831 014464 043115 042505 020104 
3832 014472 042522 042523 020124 
3833 014500 053523 052111 044103 
3834 014506 040600 052106 051105 
3835 014514 042440 041501 020110 
3836 014522 053523 052111 044103 
3837 014530 051440 052105 044524 
3838 014536 043516 200 
3839 014541 124 050131 020105 -ASCII1 /TYPE SPACE WHEN READY/<ACRLF> 
3840 014546 050123 041501 020105 
3841 014554 044127 047105 051040 
3842 014562 040505 054504 200 
3843 014567 055 026455 020055 45$: = .ASCIZ /---- SET 3 INCH FORMFEED ----/ 
3B44 014574 042523 020124 031440 
3845 014602 044440 041516 020110 
3846 014610 047506 046522 042506 
3847 014616 042105 026440 026455 
3848 014624 000055 


3849 014626 002 005 010 608: BYTE 2,5,8.,17.,20.,26.,52.,35.,50.,56.,68. 


3852 014657 070 10 
sasi 014642 -EVEN 
3855 014642 020040 000063 50$: ASCIZ /_ 5/ 
3856 014646 027063 000065 eASCIZ /3.5/ 
3857 014652 020040 000064 ASCIZ / 4&/ 
5858 014656 027065 000065 ASCIZ /5.5/ 
3859 014662 020040 000066 ASCIZ / 6/ 
0 014666 020040 000067 ASCIZ / 7/ 
3861 014672 020040 000070 ASCIZ / 8/ 
5862 014676 027070 00006 eASCIZ /8.5/ 
3865 014702 030440 000061 eASCIZ / 11/ 
3864 06 050440 000062 ASCIZ / 12/ 
3865 014712 030440 000064 eASCIZ / 14/ 
3866 014716 020040 000040 sASCLE ff 
3867 014722 000000 WORD 0 ;END OF TABLE 


ee 


ADD. 


014724 
014726 
014750 
014732 


014734 


014762 
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104014 
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015134 
001112 
000033 
000062 


015224 
000040 


000033 
000061 
000010 
000117 


001112 
015224 
000001 


015250 


000011 


MACY11 30A(1052) 
OPTION TE 
2 00000000000000K 
“TEST34 - 
RTTITTTITT TTT ET 
TEST34: 34 


,eeeeeeneaeeeeeeaeeeeet 


CHGD6: CLR R4 


-Reeceaeaeeeeeerereeere 


015132 MOV #16$,12$+2 
2$: MOV WIDTH, R35 
MOV #33.R 
PRINT 
MOV #62 ,RO 
PRINTC 
CR 
PARAS SRLLLALSLE LS ES 
FOUR 
setekeneerereeteeeete 
3s: MOV 20$(R4) ,R1 
BR 5$ 
4$: MOV #40,R0 
PRINTC 
EC R3 
BEQ 6$ 
5$: DEC R1 
BNE 4$ 
MOV #33,R0 
PRINTC 
V #61,R0 
PRINTC 
V #10,R0 
PRINTC 
Vv #°O,RO 
PRINTC 
DEC R3 
BNE 3$ 
6$: 
eeereeeeeenereteeees 
seerterreereerere reese 
MOV WIDTH,R5 
17$: MOV 20$(R4) ,R1 
CMP R1,#1 
BNE 11$ 
INC R1 
11$: MOV 30$(R4) ,R2 
SUB R1,R3 
BLT 128 
MOV #11,R0 
oy apie 
14$: CLR RO 
PRINTC 


:CONTINUE IF NOT DONE 
;SEND IT 


i 7 
O3-AUG-79 09:23 PAGE &9 
STS 


HORIZONTAL TAB OPTION 


IT 


Sadie eee —-_ 


>PRINT TEST HEADER 
;SET TABLE POINTER 
;RESET JUMP pot OR FIRST TiME THRU 


>SET COLUMN COUNT 
;CLEAR OLD TABS 


:DO0 A CARRIAGE RETURN 
>FOUR FILL CHARACTERS---- 
GET SPACE COUNT FOR TAB 


; SUBTRACT 1 FOR TAB SET 
+ SPACE 


ND 
DEC COLUMN COUNT 


;SEND 1 = SET TAB 


;SET BACKSPACE 


>PRINT 0 
>DEC COLUMN COUNT 


sFOUR FILL CHARACTERS---- 


:CONTINUE IF NOT DONE LINE 
END CR 


;RESET COLUMN COUNT 
RESET COLUMN COUNT FOR TAB 
;ADD 1 IF FIRST LINE 


; SET tbh CHAR COUNT 


; SUBTRA 


;SEND IT 


;SET NU 


T TAB FROM CO 
;BRANCH IF TOO MANY COLUMNS 
ET TAB 


LL CHAR = FILLS 


“SEND FILL CHARS 


LUMN COUNT 


CHGD6 


CHGD6 


SEQ 0089 


eee me meee 


. - ae anes cammmmmmr nmr rn nnn rncrncnrnn reece es ssssssseeseseessestsesesssnnstenmnesneenenesen eee 8 
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3924 015114 005302 DEC R2 DEC FILL COUNT 
3925 015116 001574 BNE 14% ; CONTINUE FILLS 
5926 015120 012700 000130 MOV #°x,RO ;SET X CHAR 
3927 015124 104011 PRINTC SEND IT 
3928 015126 000761 BR 11$ ; CONTINUE 
3929 015130 000137 015134 12$: JMP a#16$ SKIP FOLLOWING AFTER FIRST TIME THRU 
3930 015134 012737 015164 015132 16$: MOV #15$,12$+2 
3951 015142 104014 CR SEND CR 
5952 015144 104025 FOUR >FOUR FILL CHARACTERS---- CHGD6 
3935 015146 012700 000130 MOV #*x,RO PRINT X 
3934 015152 104011 PRINTC 
3935 015154 013703 001112 MOV WIDTH,R3 RESET COLUMNC COUNT 
3936 015160 005303 DEC R53 > SUBTRACT ONE FOR FIRST X CHAR 
3937 015162 000735 BR 17% ; CONTINUE 
3938 015164 104006 15$: CRLF SEND CR-LF 
3939 015166 005724 TST (R4) + INC TABLE POINTER 
5940 015170 016401 015224 MOV 20$(R4) ,R1 :GET COLUMN COUNT FOR TAB 
5941 015174 001403 BEQ 13$ EXIT IF DONE TABLE (0) 
3942 015176 020137 001112 CMP R1,WIDTH ;CHECK IF TOO LARGE 
39435 015202 101657 BLOS 2$ >CONTINUE TEST, OK 
5944 015206 012700 000033 138: MOV #33,R0 ;CLEAR ALL TABS BEFORE EXITING 
5945 015210 104011 PRINTC 
3946 015212 012700 000062 MOV #62,R0 
3947 015216 104011 PRINTC 
3948 015220 104001 CHAIN >SELECT TEST OR LOOP ON TEST 
Seah 015222 000640 BR TEST34 ;LOOP ON TEST 
3951 015224 000001 000002 000004 208: eWORD 1,2,4,8.,16.,52.,64.,128.,152.,0 
3952 015232 000010 000020 000040 
3953 015240 000100 000200 000204 
5954 015246 000000 
3955 015250 000001 000002 000003 30S: WORD 1.2.5,5.9.,18. 556.756 6 735.,0 
3956 015256 000005 000011 000022 
3957 015264 000044 000107 000111 
3958 015272 000000 


mp 


nN 7 
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3959 200000000000000% 
3960 : 
444 :TEST35 - VERTICAL TAB OPTION 
3965 20000 0000000000K 
3964 
3965 015274 000035 TESTS5: 35 
3966 015276 015274 TEST55 
3967 015300 104012 PRTHDR PRINT TEST HEADER 
3968 015302 104002 1$: TYPEM TYPE INSTR 
3969 015304 015615 20% 
3970 015306 104013 READ . ;WAIT FOR KYBD FLAG 
5971 015310 012700 000036 MOV #30. ,R0 DELAY FOR HALF DUPLEX 
3972 015314 104003 DELAY 
3973 015316 022737 000177 001124 CMP #177, TEMPCH ;CHECK CHAR 
3974 015324 001505 BEQ 12% sEXI1T TEST IF RUBOUT 
3975 015326 005004 CLR R4 SET LINE COUNT 
3976 015330 012700 000033 MOV #35,R0 ;CLEAR VERTICAL TABS 
3977 015334 104011 PRINTC 
5978 015336 012700 000064 MOV #64 ,RO 
5979 015342 104011 PRINTC 
5980 015344 104002 2$: TYPEM : TYPE REF LINE 
3981 015346 015573 15$ 
3982 015350 005204 INC R4 > INC LINE COUNT 
5985 015352 020427 000013 CMP R4 #15 >CHECK IT 
3984 015356 003013 BGT 55$ BRANCH IF DONE REF. 
3985 015360 010401 MOV R4,RI GET LF COUNT 
3986 015362 104010 3$: LF ; SEND LF 
5987 0153564 005301 DEC R1 ;DEC LF COUNT 
3988 015366 001375 BNE 3$ ; CONTINUE 
3989 015370 012700 000033 MOV #335,R0 SET TAB FOR THIS LINE 
3990 015374 104011 PRINTC 
5991 015376 012700 000063 MOV #63,R0 
3992 015402 104011 PRINTC 
3995 015404 000757 OR - 2} —- - 7 CONTINUE 
3994 015406 012700 000014 55$: MOV = #14, RO :SEND FF 
3995 015412 104011 PRINTC ? 
5996 015414 104002 TYPEM > TYPE MESG 
5997 015416 015707 30$ 
3998 015420 104013 READ WAIT FOR KYBD FLAG 
3999 015422 012700 0000356 MOV #30. ,R0 DELAY FOR HALF DUPLEX 
4000 015426 104003 DELAY 
4001 015430 022737 000177 001124 OP #177, TEMPCH CHECK CHAR 
4002 0154356 001440 BEQ 12$ sEXIT TEST IF RUBOUT 
4003 015440 005004 CLR R4 sRESET LF COUNT 
4004 015442 104002 4$: TYPEM TYPE REF LINE 
4005 015444 015572 10$ 
4006 015446 005204 INC R4 INC LINE COUNT 
4007 015450 020427 000013 CMP R4 #15 sCHECK IT 
4008 015454 003014 BGT 8$ >BRANCH IF DONE 
4009 015456 012700 000013 MOV #13,R0 SEND TAB 
4010 015462 104011 PRINTC 
4011 015464 010401 V R4,R1 ;SET FILL COUNT 
4012 015466 162701 000020 SUB #16.,R1 ; SUBTRACT 16 
4015 015472 003763 BLE 4$ >SKIP NULLS IF COUNT < 0 
4014 015474 005000 5$: CLR RO ;SET NULL CHAR 


Nr SS SSSSessssssssssestesssssssseeseeeteesessssseenenssemnennenenmnrrseneneeeerene LS ——— - -__——— 
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4015 015476 104011 PRINTC ;SEND NULLS 
4016 015500 005303 DEC R1 ;DEC COUNT 
4017 015502 001374 BNE 5$ :FINISH NULLS 
4018 015504 000756 BR 4% : CONTINUE 
4019 015506 012700 000033 8$: MOV #33,R0 ;CLEAR VERTICAL TABS 
4020 015512 104011 PRINTC 
4021 015514 012700 000064 MOV #64 ,R0 | 
4022 015520 104011 PRINTC 
40253 015522 012700 000014 MOV #14,R0 > SEND FF | 
4024 015526 104011 PRINTC | 
4025 015530 104006 CRLF ;SEND CR-LF | 
4026 015532 104010 LF ;SEND BLANK LINE | 
4027 015534 104001 CHAIN :;SELECT TEST OR LOOP ON TEST | 
4028 015536 000656 BR TEST35 ;LOOP ON TEST \ 
4029 015540 012700 000033 12$: MOV #33,R0 ;CLEAR ALL TABS BEFORE EXITING TEST {| 
4030 015544 104011 PRINTC \) 
4031 015546 012700 000064 MOV #64 ,R0 i! 
4032 015552 104011 PRINTC i 
4035 015554 012700 000014 MOV #14,R0 sSEND FF ! 
4034 015560 104011 PRINTC ti 
4055 015562 104006 CRLF t! 
4036 015564 104010 LF t! 
ry 5 015566 000137 002540 JMP TTY1H :GO0 KYBD CONTROL | 
i 
4039 015572 040 10$: -ASCII <40> t 
4040 015573 055 026455 026455 15$: ASCIZ /ereee--- KKKEKe<¢<¢/<15> ( 
4041 015600 026455 036055 036074 ( 
4042 015606 036074 036074 006474 
4045 015614 000 ( 
4044 015615 123 052105 030440 208: ~ASCII /SET 14 INCH FORM FEED/<ACRLF> { 
4045 015622 020064 047111 044103 ( 
4046 015650 043040 051117 020115 ( 
4047 015636 042506 042105 200 ( 
4048 015643 104 050105 042522 -ASCIZ /DEPRESS TOP OF FORM RESET SWITCH/<ACRLF><12><12> 4 
4049 015650 051523 052040 050117 
4050 015656 047440 020106 047506 
4051 015664 046522 051040 051505 ¢ 
4052 015672 052105 051440 044527 ¢ 
4053 015700 041524 100110 005012 C 
4054 015706 000 | C 
4055 015707 001 000401 042522 30$: eASCIZ <1><1><1>/REMOVE /<57>/ RESET REF/ C 
4056 015714 047515 042526 027440 ¢ 
4057 015722 051040 051505 052105 C 
4058 015730 051040 043105 C 
4059 015736 EVEN : 
C 
C 
C 








— 
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me 3000000000001 | 
4062 >CHECK SWITCH REGISTER ROUTINE. CHECKS FOR *G TO ALLOW | 
4963 ;CHANGING OF LOC 176. ROUTINE IS ENTERED AT CNTLU FOR START UP PURPOSES. | | 
4064 sWHEN A “G IS GIVEN, THE PROGRAM ENTERS AT CKSWR. THE PROGRAM | 
4065 :GETS CONTENTS OF SOFT. SWITCH REG, TYPES IT OUT, AND THEN | 
4066 ;SEEKS NEW DATA FROM OPERATOR. ONCE DATA IS SUPPLIED, 1T rents THIS 
4067 ;DATA INTO THE SOFT. SWITCH REG. AND RESUMES OPERATION IN THE \ 
4068 >MAIN PROGRAM. INCORRECT ENTRIES (SUCH AS 8,9, LETTERS) ARE DELETED \ 
4069 ;AND THE PROCESS RESTARTED. TYPING “U ALLOWS THE PRESENT ENTRY l 
= ;10 BE DELETED AND THE PROCESS RESTARTED. | 
4072 : () 
4073 OQO00000000000000000000K v 
4074 t) 
4075 ) 
4076 seeeeeeeeeeeeteee terete t! 
4077 015736 CHGD7: t 
4078 015736 022737 000176 001244 $CKSWR: CMP #SWREG,SR ;SOFTWARE SW REG PRES? t) 
4079 015744 001125 BNE OuT :NO, GET OUT C! 
4080 015746 023727 001124 000007 CMP TEMPCH,#7 :18 IT A *G 0: 
4081 015754 001121 BNE OUT :NO, GET OUT C: 
4082 015756 010046 MOV RO,-(SP) : SAVE 0: 
4083 015760 010446 MOV R4,-(SP) 7 SAVE R4 0: 
4084 015762 013700 001124 MOV TEMPCH,RO ;SET UP TO PRINT “*G C 
4085 015766 104002 TYPEM ; TYPE MESSAGE ROUTINE 0 
4086 015770 020121 CNTG E 
4087 015772 000402 BR OVER ;GET AROUND SAVE RO,R4 
4088 015774 010046 SCNTLU: MOV RO,-(SP) : SAVE ay f 
4089 015776 010446 MOV R4,-(SP) ; SAVE R E 
4090 016000 104002 OVER: TYPEM ; ALLOW sun TO BE TYPED OUT E 
4091 016002 020130 SwR E 
4092 016004 017746 163234 MOV @SR,-(SP) :MOV CONTENTS OF SWR E 
40935 016010 004737 016222 JSR PC,TYPOC sOCTAL TYPE OUT ROUTINE E 
4094 016014 005726 POPSP ;CORRECT STACK POINTER E 
4095 016016 104002 TYPEM ;ALLOW NEW= TO BE TYPED E 
4096 016020 020143 NEW | E 
4097 016022 005037 001252 CLR TEMPST ;CLEAR TEMP STORAGE LOC E 
4098 016026 012737 000007 001254 MOV #7, COUNT ;SET UP TO ACCEPT 7 CHAR E 
4099 016034 104022 1$: INRDY : :1S CHARACTER THERE? E 
4100 016036 000776 BR 1$ E 
4101 016040 013700 001124 MOV TEMPCH,RO ;SET UP FOR PRINT ROUTINE E 
4102 016044 104011 PRINTC ;PRINT ROUTINE E 
4105 016046 013737 001124 001250 MOV TEMPCH, TIB ;STORE BUFFER E 
4104 016054 042737 177600 001250 BIC #177600,11B i STRIP s GARBAGE E 
4105 016062 122737 000025 001250 CMPB #25,T1B 21S IT A “U E 
4106 016070 001001 BNE 2$ ;BRANCH IF NOT E 
4107 074072 000742 3$: BR OVER s START OVER E 
4108 016074 122737 000015 001250 2%: CMPB #15,TIB 71S 17 A <CR> E 
4109 016102 001005 BNE 4% ;BRANCH IF NOT E 
4110 016104 104007 SCRLF E 
4111 016106 022737 000007 001254 CMP #7, COUNT sWAS <CR> FIRST CHAR 'Z 
4112 016114 001033 BNE 7$ : CHANGE SWREG IF NOT FIRST <CR> é 
4115 016116 122737 000060 001250 4$: CMPB #60,11B :1S IT LESS THAN 0 E 
4114 016124 003004 BGT 5$ :G0 TO ? ROUTINE IF SO E 
4115 016126 122737 000067 001250 CMPB #67,11B8 71S 11 GREATER THAN 7 f 
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4116 016134 002003 BGE 6$ ;GO TO ? ROUTINE IF SO | 
4117 016136 104002 $$: T (PEM :SET UP FOR ? TYPEOUT | 
4118 0161460 020153 QUEST | 
4119 016142 000716 BR OVER ;START INPUT STRING OVER 
4120 016144 006337 001252 6$: ASL TEMPST sMULTIPLY BY 10 
4121 016150 006337 001252 ASL TEMPST | 
4122 016154 006337 001252 ASL TEMPST | 
4123 016160 142737 000060 001250 BICB  #60,T1B ;CLEAR OF ASCII | 
4124 016166 153737 001250 001252 BISB =‘ TIB. TEMPST :MOV CHAR TO TEMPST | 
4125 016174 005337 001254 DEC UNT SONLY WANT 6 NUMBERS AND <CR> | 
4126 016200 001756 BEQ 5$ :1F = 7 TOO MANY NUMBERS | 
4127 016202 000714 BR 1$ :GET NEXT CHAR 
4128 016204 013777 001252 163032 7S: MOV TEMPST,aSR :CHANGE SWR CONTENTS 
4129 016212 012604 MOV (SP)4,R4 TRESTORE REG 4 
4130 016214 012600 MOV (SP)+-RO RESTORE REG 0 
4131 016216 104006 CRLF SCARRIAGE RETURN 
4132 016220 000002 OUT: RTL :RETURN TO PROGRAM 
£138 
4 
4136 016222 112737 000001 001256 TYPOC: MOVB  9#1,FILL ;SET THE ZERO FILL SWITCH 
4137 016230 112737 000006 001261 MOVB  #6.MODE+1 :SET FOR SIX DIGITS 
4138 016236 112737 000005 001262 TYPON: MOVB #5.CNT :SET THE ITERATION COUNT 
4139 016244 010046 MOV RO.-(SP) SAVE REG 0 
4140 016246 010346 MOV R3,-(SP) SAVE R3 
4141 016250 010446 MOV R4,-(SP) SAVE RG 
4142 016252 010546 MOV R5,-(SP) SAVE RS 
4143 016254 113704 001261 MOVB MODE+1,R4 ;GET THE NUMBER OF DIGITS TO TYPE 
4144 016260 005404 NEG 4 
4145 016262 062704 000006 ADD #6,R4 ;SUBTRACT IT FOR MAX. ALLOWED 
4146 016265 110437 001260 MOVB RG. MODE :SAVE IT FOR USE 
4147 016272 113704 001256 MOVB FILL, RG :GET THE ZERO FILL SWITCH 
4148 016276 016605 000012 MOV 12(%6) ,R5 :PICKUP THE INPUT NUMBER 
4149 016302 005003 CLR R3 [CLEAR THE OUTPUT WORD 
4150 016304 006105 1$: ROL R5 :ROTATE MSB INTO "'C’° 
4151 016306 000404 BR 3$ [60 DO MSB 
4152 016310 006105 2$: ROL —s RS SFORM THIS DIGIT 
4153 016312 006105 ROL R5 
4154 016314 006105 ROL R5 
4155 016316 010503 MOV R5,R3 
4156 016320 006103 3$: ROL R3 :GET LSB OF THIS DIGIT 
4157 016322 105337 001260 DECB © MODE STYPE THIS DIGIT? 

4158 016326 100012 BPL 7$ BR IF NO 

4159 016330 042703 177770 BIC #177770,R3 GET RID OF JUNK 

4160 016334 001002 BNE 4$ TEST FOR 0 

4161 016336 005704 TST R4 ;SUPPRESS THIS 0 

4162 016340 001403 BEG 5$ :BR IF YES 

4163 016342 005204 4$: INC R4 :DON'T SUPPRESS ANYMORE 0'S 
4164 016344 052703 000060 BIS #60,R3 “MAKE THIS DIGIT ASCII 

4165 016350 010300 5$: MOV 3,R0 :SETUP FOR PRINT ROUTINE 
4166 016352 104011 PRINTC 

4167 016354 105337 001262 7$: DECB. CNT :COUNT BY 1 

4168 016360 003353 BGT 2$ :BR IF MORE TO DO 

4169 016362 002402 BLT 6$ :BR IF DONE 

4170 016364 005204 INC RG : INSURE LAST DIGIT ISN'T A BLANK 
4171 016366 000750 BR 2$ ;G0 DO THE LAST DIGIT 
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4172 
4173 
4174 
4175 
4176 
4177 
4178 
4179 
4180 
4181 
4182 


016370 
016372 
016374 
016376 
016400 


03-AUG-79 09:18 


012605 
012604 
012603 
012600 
000207 
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OPTION TEST 


6$: 


MOV 
MOV 
MOV 
MOV 
RTS 


ee 
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(SP)¢_R5 
(SP)4 RG 
(SP)¢,R3 
(SP)+,RO 
PC 


sRESTORE R5 
sRESTORE R4 
RESTORE R35 
>RESTORE RO 
sRETURN FROM SUBROUTINE PC 


SEQ 0095 
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DD.P1 03-AUG-79 09:18 H11 VARIABLE PARAMETER TABLE 
pet -SBTTL DH11 VARIABLE PARAMETER TABLE 
4185 
4186 
4187 -eeeteerere 
4188 . 
rer + ;DH11 PROGRAMMABLE PARAMETER TABLE 
4191 ;THIS TABLE 1S PROVIDED TO ALLOW THE DEGREE OF FREEDOM AVAILABLE 
4192 ;IN THE DH11 PROGRAMMABLE MULTIPLEXER. THERE ARE 256 ENTRIES, ONE 
4193 >FOR EACH OF THE POSSIBLE 16 LINES ON EACH OF THE POSSIBLE 16 
4194 ;DH11°S. EACH OF THE 256 LINES ARE INITIALIZED AS FOLLOWS: (=16707) 
4195 : CHARACTER LENGTH = 8 BITS 
4196 : NO. OF STOP BITS = 
4197 ; PARITY GEN. AND DET. NONE 
4198 : OPERATING MODE FULL DUPLEX 
4199 ‘ TRANSMITTER SPEED = 300 BAUD 
o5oe : RECEIVER SPEED = 300 BAUD 
4202 ;1F ANY LINE SHOULD DIFFER, THE APPROPRIATE ENTRY FOR THE LINE 
4203 ;SHOULD BE CHANGED BEFORE RUNNING THE DIAGNOSTIC. REFER TO THE LINE 
agQs ;PARAMETER REGISTER IN THE DH11 PROGRAMMING MANUAL FOR INSTRUCTIONS. 
4 : 
4206 seeekeeeeee 
4207 
4208 016402 000020 DH1100: 
4209 016402 016707 WORD 16707 
4210 016404 016707 -WORD 16707 
4211 016406 016707 ~-WORD 16707 
4212 016410 016707 -WORD 16707 
4215 016412 016707 ~WORD 16707 
4214 016414 016707 -WORD 16707 
4215 016416 016707 -WORD 16707 
4216 016420 016707 -WORD 16707 
4217 016422 016707 «WORD 16707 
4218 016424 016707 WORD 16707 
4219 016426 016707 ~WORD 16707 
4220 016430 016707 -WORD 16707 
4221 016432 016707 -WORD 16707 
4222 0164354 016707 ~WORD 16707 
4225 016436 016707 ~WORD 16707 
4224 016440 016707 -WORD 16707 
4225 016442 000020 DH1101: 
4226 016442 016707 -WORD 16707 
4227 016444 016707 WORD 16707 
4228 016446 016707 -WORD 16707 
4229 016450 016707 ~WORD 16707 
4230 016452 016707 -WORD 16707 
4251 016454 016707 -WORD 16707 
4232 016456 016707 ~WORD 16707 
42353 016460 016707 ~WORD 16707 
4234 016462 016707 -WORD 16707 
4235 016464 016707 WORD 16707 
4236 016466 016707 -WORD 16707 
4237 016470 016707 -WORD 16707 
4238 016472 016707 -WORD 16707 


oo 


CZLADDO LA36 DH11/DJ11 DIAG 
03-AUG-79 09:18 


CZLADD.P11 
4259 016474 
4240 016476 
4241 016500 
4242 016502 
4243 016502 
4244 016504 
4245 016506 
4246 016510 
4247 016512 
4248 016514 
4249 016516 
4250 016520 
4251 016522 
4252 016524 
4253 016526 
4254 016530 
4255 016532 
4256 016534 
4257 016536 
4258 016540 
4259 016542 
4260 016542 
4261 016544 
4262 016546 
4263 016550 
4264 016552 
4265 016554 
4266 016556 
4267 016560 
4268 016562 
4269 016564 
4270 016566 
4271 016570 
4272 016572 
4273 016574 
4274 016576 
4275 016600 
4276 016602 
4277 016602 
4278 016604 
4279 016606 
4280 016610 
4281 016612 
4282 016614 
4283 016616 
4284 016620 
4285 016622 
4286 016624 
4287 016626 
4288 016630 
4289 016632 
4290 016634 
4291 016636 
4292 016640 
4293 016642 
429% 016642 


016707 


oOooooo0oo 
te et ee eee eed ceed eed 
o 
™~ 
© 
—~ 


ooo°oo 
a 
o 
™ 
So 
™ 


— hele lelelelelelelelol = 
ee ee ee ee cee ee et eee 

o 

—™ 

So 

™ 


o—-—_- 
ooo 


SN NS SOS SS ONS SOS SONS SSE SO OS SO SO 


oho joie lelelelelelelelelelelelelelelel ele) el a) 
ooococooooooooooooocoo oe oe 
OnwmOooooocoocooocooocoocoooNno°oofo 


Oe ss se ss a ws ss ss ss ss 


~“~O 





DH1104: _ 


DH1105: _ 
.W 
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DH11 VARIABLE PARAMETER TABLE 


APAAAOSAOOCOOS 
~“ ~ 

oO 

~“ 


6707 


See 


SEG 0097 


CZLADD 
CZLADD. 


6 ¢Ane 


PI 


16644 


COoooocccce 





DH11/DJ11 DIAG 
03-AUG-79 09:18 


016707 


elelelelelelelelelelelelelelelelolelelelelelel«| 
oo o o a ] o o 
= 2 Sssse Seceea 
o ™N ~N oO ~“N = 


SN eee SS 
OOoorercococoocecoococoooco So 


DH1106: _ 


DH1107: _ 


DH1110: _ 





nd ed ced ced wed and eed eed eens ee ceed eed 
SC AOSOeoncoocccoce 


o 
~ 
oO 
~ 


07 


a ee ee eee ee eee ee ee ee ee eee ee eee ee eee ee ee ee ee eo ie | ce ee el ee el cel meee cee eel eel ee el eed eel ee 


7 
7 
7 
's 
7 
707 
7 
7 
7 
7 
7 
7 


07 


ee ee ee 


Se ee —_— 
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DH11 VARIABLE PARAMETER TABLE 


SEQ 0098 


CZLADDO LA36 DH11/DJ11 DIAG 
03-AUG-79 09:18 





CZLADD.P11 
4351 017016 
4352 017020 
4353 017022 
4354 017024 
4555 017026 
4356 017030 
4357 017032 
4558 017034 
43559 017036 
4360 017040 
4361 017042 
4362 017042 
435635 017044 
4364 017046 
4365 017050 
4566 017052 
4367 017054 
4368 017056 
4569 017060 
4370 017062 
4371 017064 
4572 017066 
4375 017070 
4374 017072 
4375 017074 
4576 017076 
4577 017100 
4378 017102 
4379 017102 
4580 017104 
4581 017106 
43582 017110 
4385 017112 
4384 017114 
4385 017116 
43586 017120 
4587 017122 
4388 017124 
4389 017126 
4390 017130 
4391 017132 
4392 017134 
4395 017136 
4394 017140 
4395 017142 
4396 017142 
4397 017144 
4398 017146 
4399 017150 
4400 017152 
4401 017154 
4402 017156 
44035 017160 
4404 017162 
4405 017164 
4406 017166 


016707 


ooooeo°o°ooo 
Oe et et ed aed eed 
o 
™ 
) 
™ 


Sooooco0o0°co 
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ee ee ee el Te me ee ee ee ee ed nd td ed 


COoOooooooooooooooococooo°c“o°0o°o 
SOOeoreooroeoeoeoaococococccaoc]a 


DH1 


DH1111: _ 


W 
DHI112: 


DH1113: 
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1 VARIABLE PARAMETER TABLE 


eee ae ed etd 
OOoereereeerecrnerte Fooccc 
~~ S S S 
OQ ooo 
ay SS 


at lt melt lt ell el lt el lt meet cell eel ce ee ce meee ee el ee ee ee ee ee ee ee eee 
SOoooocac a oO 
—~ —~ 
© oS 
~ ~ 


AAAOCAOOOOS 
ae ed ad Os Od 
ooococeooo 
ae Nd ed Od ON 


SEQ 0099 


Le ee 


renee SRR 
——————$$ $C LES LTE LOT LC A LE AE ES RS SAR MR As am wR See wae 


re ee ST: eer — 
= 


J 8 
ADDO LA36 DH11/DJ11 DIAG MACY11 30A(1052) 05-AUG-79 09:23 PAGE 100 


C2L 
CZLADD.P11 03-AUG-79 09:18 DH11 VARIABLE PARAMETER TABLE SEQ 0100 

4407 017170 016707 -WORD 16707 
4408 017172 016707 -WORD 16707 
4409 017174 016707 «WORD 16707 
4410 017176 016707 -WORD 16707 
4411 017200 016707 -WORD 16707 
4412 017202 000020 DH1114 

4413 017202 016707 -WORD 16707 
4414 017204 016707 -WORD 16707 
4415 017206 016707 -WORD 16707 
4416 017210 016707 «WORD 16707 
4417 017212 016707 -WORD 16707 
4418 017214 016707 -WORD 16707 
4419 017216 016707 -WORD 16707 
4420 017220 016707 . WORD 16707 
4421 017222 016707 -WORD 16707 
4422 017224 016707 -WORD 16707 
4425 017226 016707 WORD 16707 
4424 017230 016707 -WORD 16707 
4425 017232 016707 .WORD 16707 
4426 017234 016707 -WORD 16707 
4427 017236 016707 -WORD 16707 
4428 017240 016707 WORD 16707 
4429 017242 000020 DH1115 

4430 017242 016707 WORD 16707 
4431 017244 016707 -WORD 16707 
4432 017246 016707 «WORD 16707 
44335 017250 016707 -WORD 16707 
4434 017252 016707 . WORD 16707 
4435 017254 016707 -WORD 16707 
44356 017256 016707 «WORD 16707 
4437 017260 016707 WORD 16707 
44358 017262 016707 «WORD 16707 
4439 017264 016707 WORD 16707 
4440 017266 016707 WORD 16707 
4441 017270 016707 ‘ D 16707 
4442 017272 016707 -WORD 16707 
4445 017274 016707 -WORD 16707 
4444 017276 016707 -WORD 16707 
4445 017300 016707 ~WORD 16707 
4446 017302 000020 DH1116: 

4447 017302 016707 -WORD 16707 
4448 017304 016707 WORD 16707 
4449 017306 016707 -WORD 16707 
4450 017310 016707 -WORD 16707 
4451 017312 016707 -WORD 16707 
4452 017314 016707 -WORD 16707 
4453 017316 016707 -WORD 16707 
4454 017320 016707 WORD 16707 
4455 017322 016707 -WORD 16707 
4456 017324 016707 WORD 16707 
4457 017326 016707 -WORD 16707 
4458 017330 016707 WORD 16707 
4459 017332 016707 -WORD 16707 
4460 017334 016707 WORD 16707 
4461 017336 016707 -WORD 16707 
4462 017340 016707 ~WORD 16707 


EE A ES I 


eee 





LT —  -stet~~ns 
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CZLADD.P11  — 03-AUG=79 09:18 DH11 VARIABLE PARAMETER TABLE SEQ 0101 
4463 017342 000020 DH1117: | 
4464 017342 016707 WORD 16707 | 
4465 017344 016707 “WORD 16707 | 
4466 017346 016707 “WORD 16707 
4467 017350 016707 “WORD 16707 
4468 017352 016707 “WORD 16707 
4469 017354 016707 “WORD 16707 
4470 017356 016707 “WORD 16707 
4471 017360 016707 “WORD 16707 
4472 017362 016707 “WORD 16707 
4473 017364 016707 “WORD 16707 
4474 017366 016707 “WORD 16707 
4475 017370 016707 “WORD 16707 
4476 017372 016707 WORD 16707 
4477 017374 016707 “WORD 16707 
4478 017376 016707 “WORD 16707 
4479 017400 016707 “WORD 16707 


jotta 2 
Seaueeneeeeeee og 


| ce En 
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CZLADD.P11  03-AUG-79 09:18 EXISTING LINE TABLE SEQ 0102 
4480 ~-SBTTL EXISTING LINE TABLE 
4481 
4482 
4483 
4484 seeeeeenree 
4485 . 
PY sEXISTING LINE TABLE 
4488 :THIS 16 WORD TABLE, ONE ENTRY FOR EACH OF THE POSSIBLE 16 DH11'S 
4489 :OR DJ11°S INDICATES WHICH OF THE LINES HAVE A TERMINAL CONNECTED 
4490 > THIS TABLE SHOULD BE INITIALIZED BEFORE RUNNING THE DIAGNOSTIC. BIT O 
4491 :1S LINE #0 WHILE BIT 15 1S LINE #15. A 1 INDICATES THAT A TERMINAL IS 
4492 sNOT CONNECTED WHILE A 0 INDICATES THAT THE TERMINAL DOES EXIST ON THE 
per sLINE. 
4495 sEX. If THERE ARE TERMINALS ON LINE #0,45,410 AND#13 ONLY, ON THE 
4496 ;FIRST DH11 AND NO OTHER DH11 EXIST, SET THE FIRST ENTRY IN THIS 
4497 ; TABLE = 155736 AND ALL OTHER WORDS = 177777. THE DIAGNOSTIC IS 
ree : INITIALIZED SO THAT NO TERMINALS EXIST. 
4500 ‘eeeenenene 
4501 
4502 
4503 
4504 017402 177777 ELTAB: .WORD 177777 sFIRST DH11 
4505 017404 177777 ~WORD 177777 
4506 017406 177777 ~WORD 177777 
4507 017410 177777 ~WORD 177777 
4508 017412 177777 ~WORD 177777 
4509 017414 177777 -WORD 177777 
4510 017416 177777 ~WORD 177777 
4511 017420 177777 -WORD 177777 
4512 017422 177777 ~WORD 177777 
4513 017424 177777 -WORD 177777 
4514 017426 177777 WORD 177777 
4515 0174350 177777 -WORD 177777 
4516 017432 177777 .WORD 177777 
4517 017434 177777 -WORD 177777 
4518 017436 177777 WORD 177777 
4519 017440 177777 -WORD 177777 


Nee 


SL AT ee htt 


CZLADDO LAS6 DH11/DJ11 DIAG 


CZ2LADD.P11 

4520 

4521 

4522 

4525 

4524 017442 
4525 017450 
4526 017454 
4527 017462 
4528 017470 
4529 017476 
4530 017504 
4531 017505 
4532 017512 
4533 017520 
4534 017526 
4535 017534 
4536 017536 
4537 017544 
4538 017552 
4539 017555 
4540 017562 
4541 017564 
4542 017572 
4543 017600 
4544 017606 
4545 017613 
4546 017620 
4547 017626 
4548 017634 
4549 017642 
4550 017650 
4551 017654 
4552 017662 
4553 017670 
4554 017672 
4555 017700 
4556 017706 
4557 017714 
4558 017722 
4559 017727 
4560 017734 
4561 017742 
4562 017750 
4563 017756 
4564 017764 
4565 017772 
4566 020000 
4567 020006 
4568 020014 
4569 020017 
4570 020024 
4571 020032 
4572 020040 
4573 020046 
4574 20050 
4575 


007600 


ovo —-Oof— 
OOO fo —- WOe 


020040 


05-AUG-79 09:18 


055103 


052123 
030510 


042505 


047105 
050040 


040 
030060 
042040 


047115 
042520 


042105 
020040 
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DIAGNOSTIC MESSAGES 


040514 
052040 


041511 
020061 
030461 
051105 
100123 


020104 
051501 


100060 
030510 


051505 


047503 
100123 


040440 


047115 
047510 


000200 


STARTM: 


ENDPAS: 


PASMES: 


DH11S: 


DJT1S: 


HDRMSG: 


HDRO: 


EO25MA: 


EO25MB: 


ECOEND: 


E0235M: 
LINES: 


- SBTTL 


-ASCII 
-ASCI1 


»ASCIZ 


ASCII 


eASCIZ 
eASCIZ 


~ASCIZ 


~ASCIZ 
eASCIZ 


-ASCII 


-ASCI2 


eASCIZ 


~ASCIZ 


»ASCII 
ASCII 


DIAGNOSTIC MESSAGES 


<ACRLF ><17>/CZLADDO/<ACRLF > 
/LA36 TERMINAL DIAGNOSTIC/<ACRLF> 


/DH11 & DJ11 INTERFACES/<ACRLF><12> 


<ACRLF><12>/END OF PASS / 


/0000/<ACRLF><12> 
/00 DH11°S UNDER TEST/<ACRLF><12> 


/00 DJ11°S UNDER TEST/<ACRLF><12> 
<ACRLF><17><12>/TEST #/ 

4/000 COLUMNS/<ACRLF><12> 

/TYPE ANY PRINTABLE CHARACTER / 

FAD: LISTER FOR: DECAL Voc civeseccucs / 
<ACRLF>/NOT ENOUGH COLUMNS/<ACRLF> 


<ACRLF>/ECHO TEST TERMINATED/<ACRLF> 


;MESG FOR TEST £0235 


~ “~ 
~ 


SEQ 0105 


ee 


CZLADDO LA56 DH11/DJ11 DIAG 
CZLADD.P11 


0201 
0201 


020121 


020160 


0 
020162 


000001 


03-AUG-79 09:18 


020040 
0 
021440 


042526 
042104 


057040 
020012 


0 
037440 


MACY11 30A(1052) 
DIAGNOSTIC MESSAGES 


LINESA: 


020040 
046105 


042524 
020040 


116 
040 


020107 
051440 

000 
053505 
020040 


MESG3: 


EVEN: 
ODD: 


; CHGD8 


n 8 
O05-AUG-79 09:23 PAGE 104 


»ASCIZ 
-ASCIZ 


-ASCI1 
-ASCII1 


/ 


<ACRLF><17><12>/SELECT TEST @ / 


/EVEN/ 
/OD0 / 


; eee eererereeeaee 


, eeeearererererereeee 


LNTG: 
SWR : 
NEW: 
QUEST: 


~ASCIZ 


»ASCIZ 
»ASCIZ 
»ASCIZ 
of VEN 


~END 


/ 


a 


/<ACRLF > 


<ACRLF><17><12>/ 
/ WNEW= / 


/ 


1. 


SWR= / 


SEQ 0104 
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CZLADD.P11 03-AUG-79 09:18 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0105 | 

ACRLF = 000200 13548 2262 3667 3749 3753 3757 3829 3839 4044 4048 4526 6526 4531 
4536 4539 4541 4545 4549 4551 4565 4569 4576 4578 4591 

ACTIV. 001222 1457# 1619 1680 1707 17742 1793 

ADTENP 004412 2280 22998 

BAR 001150 14468 1864" 2046 20538 

BITTAB 001162 14518 1880 1907 

BITO = 000001 1335¢ 

BIT! = 000002 13368 

BIT10 = 002000 13459 

BIT11 = 004000 1346# 1798 

BIT12 = 010000 13478 

B1T13 = 020000 13484 2099 2396 2533 

BIT14 = 040000 13499 

BIT15 = 100000 13508 

BIT2 = 000004 13378 

B1T5 = 000010 13384 

BIT4 = 000020 13398 

B1T5 = 000040 13404 1748 

BIT6 = 000100 13418 2843 

BIT7 = 000200 13424 

BIT8 = 000400 13438 1613 1801 2056 259% 

B1T9 = 001000 13448 

BTOASC= 104015 13718 1569 1581 1609 3188 

BUFR 012234 3426 ©6452, 3457 = 3472 

BYCR 001146 14458 1862"  2051* 

CARA = 001144 1444# 1860*  2050* 

CHAIN = 104001 1359 2651 2679 «= 2749S 2819 2854 = 2914 = 2978 = 3045S 30943113 81H 
3225. 3251 3277 3366 3469 3510 3539 3665 3726 3821 3948 4027 

CHAINN 002034 16438 1996 

CHAINY 002062 1616 16614 1803 

CHARAC 006160 2484 26164 

CHGD10 004572 23848 

CHGD5 001316 1495¢ 

CHGD4 002034 1642a 

CHGDS 003476 20284 

CHGD6 = 014732 3878# 

CHGD7? =—6015736 4077# 

CHGD9 =001502 15414 

CKSWR = 104024 13784 1643 2404 2448 

CLEAN = 104017 13734 1504 1665 1760 

CNT 001262 14748 46138* 4167* 

CNTDH 001154 16484 1834* 1843" 1871 1874" 1891" 1900* 

CNTG 020121 4086 45898 

CNTLSW 001104 14284 1505* 1645 1755* 1757" 1759 1769 1788" 1798 1801 

CNTLU = 104025 13794 1548 

CNVCTR 004404 2278* 2290" 22958 

COUNT 001254 14714 46098* 4111 4125* 

CR = 104014 1370# 2338 2806 2814 2849 2866 2907 2971 3005 3022 3039 3177 
3800 3886 3908 3931 

CRLF = 104006 13644 1582 1610 2182 2367 2648 2674 274) 2748 2900 2909 2913 
2973 2977 3010 3027 3044 3090 3093 3110 3170 5246 272 3445 
ztee 3557 3560 3575 5599 3614 5630 5647 5657 3820 3938 4025 

CSR 001236 14634 1925" 2056* 2057 

CURTST 001120 14344 1668 1775 1823* 

DELAY = 104003 1361¢ «1598 = «1718=—Ss«1733)=S 1745) s17902Ss«* 1805) 673) 2505 = 2591 = 2893s 291 





eee 
CZLADDO LA56 DH11/DJ11 DIAG 


CZLADD .P11 
DHADR 001134 
DHCNT 001230 
DH115S 017564 
DH1100 016402 
DH1101 016442 
DH1102 016502 
DH1103 016542 
DH1104 016602 
DH1105 016642 
DH1106 016702 
DH1107 016742 
DH1110 017002 
DH1111 017042 
DH1112 017102 
DH1113 017142 
DH1114 017202 
DH1115 017242 
DH1116 017302 
DH1117 017342 
DIGIT 004406 
DISPLA 001246 
DISPRE 000174 
DJCNT 001226 
DJ11S 017613 
OLY 004174 
ECHO = 104021 
ECHODJ 003600 
ECOEND 020017 
ELTAB 017402 
EMTINT 003346 
EMTTAB 003422 
ENDIT 005432 
ENDITD 005424 
ENDITR 005416 
ENDPAS 017536 
END3 001432 
ENDG 001500 
E020 011126 
E021 011172 
EO21A 011200 
EO21B 011234 
022 011244 
E022A 011252 
E022B 011314 
023 011530 
EO23M 020046 
024 012052 
E024B 012060 
EO24R 012140 
E025 012636 
EOQ25MA 017672 
EO25MB 017772 
EVEN 020111 
FILL 001256 


03-AUG-79 09:18 


MACY11 30A(1052) 


:. 43 
03-AUG-79 09:23 PAGE 107 


CROSS REFERENCE TABLE -- USER SYMBOLS 


3069 3135 3217 
1 2424 


530* 1835 

1532* 1535" 1541 
1612 45414 
2426 42088 


2285*  2288* 2289 
1501* 

1501 

1519" 1523* 1543 
1584 4545# 

22168 

1720 1735 1747 
3720 

2055# 

5250 3276 3365 
2425 2554 45048 
19784 

19954 


2497 25078 2532 
2460 2464 2469 


25034 2539 

4536a 

15264 

153584 

32124 3486 

3213 32378 

3252 

2459 2546 2577 
3238 32618 

3278 

2463 2550 2581 
5262 53318 

3363 45738 

3332 34228 


3445 3460 3470 


425 3485# 
3494 45548 
45654 
45830 
4136" 4147 


3269 
1606 


22968 
1578 
1807 


3468 


2537 
25048 


32498 


32758 


3356 
1703 


1592 


2159 


3509 


2609 
2543 


3429 3497 
1833 2394 
1890 2531 
2326 2328 
45698 

2547 2551 


3618 
2427 


2555 


2398 


2574 


3777 


2535 


2578 


3796 


3221 


2582 


3972 


3439 


SEQ 0106 


4000 


3505 


CZLADDO LA36 DH11/DJ11 


CZLASD.P11 


— 
“OZ 
D 
4 
ae 
Tt) " 


PRINTC= 


PRINTJ 


PRTHDR= 


104010 
001132 


ooo°o°cocnnLnca 


1 
003 
104 


ono 


005474 
104012 


Dd! 
09:18 


AG 


1773 
3910 


45514 
2536 
1489* 
2818 


2838 
1876* 


3932 


1647 
2904 


2062 


20535 
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1794 
2970 


2085 


2055 


5378+ 


2044 
3133 


2106 


3379* 


Fla) 
— a 
o-— 
OW 


2391 
5444 


3782 


3986 


ant and 
= 
~lUA 
— Oo 


SEQ 0107 | 


4026 


1439 
1472 
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CZLADDO LA56 DH11/DJ11 DIAG 


CZLADD.P11 

PSwW = 177776 
PT0 006560 
PT] 006634 
PT10 010504 
PT11 010642 
PT12 010674 
PT12A 8010702 
PT17 010764 
PT17B 010754 
PT17D 010776 
P12 006756 
PT3 007406 
P14 007526 
PTS 007704 
PTSAL 010052 
PT6 010110 
P17 010272 
QUEST 020153 
READ = 104013 
REF 007636 
REPT 001114 
RESTRT 004254 
RTNNO 001106 
SAVR6 004252 
SCANDH 002674 
SCANDJ 0035106 
SCR 001136 
SCRLF = 104007 
SCR1 001232 
SCR2 001234 
SETDJ 003214 
SETERM 002750 
SPBOT 001100 
PC 006746 
SPCNT 001116 
SPSP 006726 
SP2 006740 
SR 001244 
SSR 001152 
START 001276 
STARTM 017442 
STARTX 001302 
START! 001266 
STORE 014143 
STRLN 011712 
SwR 020130 
SWREG 000176 
TBUF 001242 
TCR 001240 
TEMPCH 001124 


03-AUG-79 09:18 


DN et et et et ot ay 


PO a st De ee PQ oe oe ww we 


3263 


3333 
3126 


35684 


4078 
2064* 


1734 
244 3% 


5424 


1746 
24448 


1753 
2446 





CROSS REFERENCE TABLE -- USER SYMBOLS 


5487 3522 


3215 


31753 


2410 
2579 


2610* 


1661 


2048+ 
2451 


ee ree 


3581 


3334 
3181* 


2414 
2586 


243598 
2559« 


2099 


2050 
2466 


3718 


3427 


3182 
2418 


2440* 
2562* 


2396 


2065* 
2470 


3770 


3495 


5240* 
2453 


244) 
2565* 


2533 


2082« 
2505 


5876 


5616 


3242 
2457 


2443 
2564 


4078 


3967 


3730 


3264" 
2461 


2475 
2566* 


4092 





SEQ 0108 | 


3775 


3266 
2468 


2476+ 
2567 


4128+ 


_ TREE OEE as sssssetseteesesesessesssseeettessteceenennseeneumenssanne -- —— 
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ee ere 





CZLADD.P11 — 03-AUG=79 09:18 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0109 | 
2568* 2569 2584 588 = «3218 «= 3337) = 3340 «= 3348 «= 3351 = 3430 34323436 BGK 
3454 3655" 3458* 3498 3619 3628 3731 3734 3778 #3797 3973 4001 ZoB0 
4084 4101 4103 

TEMPST 001252 1470# §=4097* 84120" = 4121" = 4122" «= 4124" = 4128 

TENPWR 004410 2281* 2283 2287 22978 

TERM = 012224 2412 24655 = 2542, 2573 3431 34678 

TESTC = 104020 1374# 1721 1736 

TEST30 012740 1960 35208 3521 3540 

TEST31 013122 1961 35718 3572 3666 

TEST32 013740 1962 3716# 3717 = 3727 

TEST33 014170 1963 37684 3769 3822 

TEST34 014724 1964 38748 3875 3949 

TEST35 015274 1965 3965# 3966 4028 

T1B 001250 14698 = 4103* =4106* §=94105 4108-4113) 4115 123" = 412K 

TIMER 001102 1426# 2217 3736 

TIMES 001264 14758 

TTYCTL= 104004 13624 1650 

TTY) 002112 1679# 2000 

TTYJA 002114 1622 1680# 1796 

TTYJTL= 104005 13638 © 1649 

TTY] 002142 1702" 1999 

TTYIA 002144 1621 1703# 1797 

TTYIB §=002174 1685 17114 

TTY1G 002500 1682 1708 1776# 1782 1786 

TTYIH 002540 1787# 1802 1808 422 2465 2552 2583 3627 3733 3780 3799 4037 

TTYIL 002606 1777 «1798 

TYP 004114 1995  2150# 

TYPE = 104000 13584 3345 3362 3493 3745 

TYPEM = 104002 13608 41575 1585 1611 17 1791 2250 235—. 2637. 3189 $223. 3269 ~©~=s- 3275 
3364 3467 3490 3506 3508 3524 3527 3576 3586 3596 3608 3611 3615 
3637 3644 5654 57222-37242 3773S 3792 )~=S 3808 «= «3809S 38113814 Ss 88168817 
3968 §=6- 3980s 3996 )=— 4004S 4085) = 4090) 4095. 4117 

TYPM = 0004144 1997 2175 

TYPOC 016222 4093 4136# 

TYPON 016236 4138" 

T30SC =: 013120 3528 3563" 

WIDTH 001112 14318 1566" 2642 2798 2816 2835 2851 2881 2890 2901 2916 2961 2950 
2961 2995 S012 3029':—s«*365—' 5172. S261 5265 OR CCS548 2 3558023881 —OsS9112 

$BTASC 004320 2008 2278" 

SCKSWR 015736 016 4078 

$SCLEAN 002020 1631# 2010 

SCNTLU 015774 2017 40884 

$CR 004506 2007 3 2343 

SCRLF 004474 2001 2338M | 

$SECHO 003516 2012 = 20444 = =—.2047 

SFORWD 002652 1820# 2009 

$FOUR 003476 2015 20298 

SINRDY 003654 2013 2080# 2086 

LF 004476 2003 23598 

SPRHDR 004516 2005 = 2.3544 

$PRTC 004572 2004 23858 

$READ 003716 2006 2099 2102 2107 

STEsTC Oocese sor] 33108 

= 020162 13874 «61391 «=s.:1392# = 1396# §=1401# = 14058 =14098 §=1420 §=— 26168 §=.27808 «= 34738 = 3759" = 38538 





_——— 


CZLADDO LA36 DH11/Ds11 DIAG 
CZLADD.P11 03-AUG-79 09:18 
40594 
- ABS. 020162 000 


ERRORS DETECTED: 0 
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CROSS REFERENCE TABLE -- USER SYMBOLS 


45978 


ST TA te een ce eee Ses POCO LLAOR PT 


RUN-TIME: 15 28 1 SECO 
RUN-TIME RATIO: 3569/44=8.2 
CORE USED: 7K (13 PAGES) 


LS esses seston 


SEQ 0110 | 


